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LOADING MO STARTING PROCEDURES. 
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OPERATIONAL SUITCH SETTINGS 
PROGRAM OPTIONS. 
EXECUTION TIMES. 


ERROR INFORMATION. 


ERROR REPORTING PROCEDURE . 
ERROR HALTS. 








PERFOMANCE AND PROGRESS REPORTS. 
PERFORMANCE REPORTS. 


DEVICE INFORMATION TABLES. 


SUMMARY OF TESTS AND SPECIAL SUBROUTINES 
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71 1.0 GENERAL PROGRAM INFORMATION. 
72 
73 
74 1.1 
75 
% THIS DIAGNOSTIC iS A LOGIC TEST TO VERIFY THE OPERATION OF THE 
7 SERIAL LINE INTERFACE. THE USER CAN T Y 
* 
79 
80 
61 THIS TES ) 
82 OLV1i-F SERIAL LINE INTERFACES. THE DEFAULT ADORESSES ARE: 
aa 177560 -CONSOLE INTERFACE DEVICE ADORESS 
as 175610 -FIRST SERIAL LINE ADORESS OF 15 CONSECUTIVE 
* SERIAL LINE DEVICES. 
Be 
AG INTERFACE . 
0 
91 
92 POP-11 WITH 4K OF 
95 T CAN RUN UNDER _ 
5 FAILURE WILL CAUSE THE DIAG- 
97 
pet 1.2 
* 
ANY POP-11 FAMILY PROCESSOR 
MEMORY - MINIMUM 
A SPECIAL WRAP CONNECTOR OR EQUIVALENT (OPTIONAL) 
SOFTWARE REQUIREMENTS: 
THIS DIAGMOSTIC IS DESIGNED TO RUN IN ANY OF THE 
FOLLOWING WAYS: | 
STAND 
WITH APT MONITOR 
WITH ACT MONITOR 
WITH XXDP MONITOR (CHAINABLE ) 
1.3 RELATED DOCUMENTS AND STANDARDS. 
DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175-003-009-02 
APT MD-11-O0ZZMA 
ACT AUTOCAT -11-QZAUB 
SYSMAC MD-11-OZGAC 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES. 
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NO SPECIAL DIAGNOSTICS ARE REQUIRED TO RUN BEFORE THIS, 6uUT 
THE PROCESSOR, MEMORY, AND BUS ARE ASSUMMED ſo BE FULLY 
OPERATIONAL . 
1.5 ASSUMPTIONS. 
THIS DIAGNOSTIC ASSUMES THAT THE OPERATOR WAS INITIALIZED 
LOCATION ‘SUSWR’ AND ‘SDEVM’ TO THE PROPER VALUES. 
2.0 OPERATING INSTRUCTIONS. 
2.1 LOADING AND STARTING PROCEDURES. 
⸗— PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED 
THIS DIAGNOSTIC HAS ONLY ONE (1) STARTING ADDRESS. 200 FOR 
START AND RESTART. 
THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED BY SETTING 
SWITCH 6 IN THE SWITCH REGISTER AND THE TEST NUMBER CIN OCTAL) 
IN THE LOWER BYTE. CNOTE: ALL TESTS PREVIOUS TO THE SELECTED 
ARE EXECUTED WITHOUT ITERATIONS. ) 
2.2 SPECIAL ENVIRONMENTS. 
eS Cee. Cee STANDARD PROCEDURE FOR RUNNING 
UDER APT.ACT.XXDP MONITORS. AS DESCRIBED IN THEIR RESPECTIVE 
S MANUAL AND SYSMAC PACKAGE. 
2.3 OPERATIONAL SWITCH SETTINGS 
IF THE DIAGNOSTIC IS 
REGISTER THEN A SOF 
ALLOWS 
ALL s ¢ 
(LOC. 176) as USED. 
CONTROL : 
THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE 
SWITCH REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE 
ACCOMPLISHED BY DOING THE FOLLOWING: 
1) TYPE CONTROL G <ftG>; THIS WILL ALLOW THE TTY TO ENTER 


DATA INTO LOC. 176 AT SELECTED POINTS WITHIN THE 
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2) THE MACHINE WILL THEN TYPE:' SWReXXXXXX WNEWe' (XXXXXX IS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER. ) 


3) AFTER THE ‘NEWe' HAS BEEN TYPED THEN THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE TTY: 


A) 1 2 NO TE ee Soe: 
A TWEEN 0-7 


LEAD 

DIGITS ARE 

IS THE FIRST DEPRESSED 
REGISTER CONTENTS WILL NOT BE CHANGED 


U< ee ee 













176 FOLLOWED BY 
WILL SE ACCEPTED). 









SOFTWARE SWITCH 





6 - LOOP ON TEST IN SWA<7; 
7:0 - TEST NUMBER TO LOOP ON CUSED WITH BIT 8) 







2.4 
T TESTING OF PMAATIPLE OLV11-F'S. 





VECTOR BE 
ADDRESS ANY DLV11-F STARTING AT THE SPECIFIED BASE ADDRESS 
CONSECUTIVE DEVICES 


TO 

uP TO 16 : 
EXAMPLES: $BASE: 175610 
sVECTI: 300 


ABLE TO TEST ANY OLV1I1-F WITHIN THE 
76000 









THE PROGRAM WILL BE 
ADORESS RANGE 175610 --> 1 


$BASE AND $VECT1 DEFAULT TO 175610 AND 300 RESPECTIVELY. 


— — 


—X 


—ö 


267 
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THE PROGRAM ASSOCIATES UNIT NUMBERS AS FOLLOWS: (NUMBERS IN 
PARENTHESIS ARE OCTAL) 
BASE AT ' $BASE' 


UNIT@O -- ADORESS STORED 
ASSOCIATED BASE VECTOR STORED AT ‘ $VECT1' 












UNIT@1 -- BASE ADORESS + (10) 
_ BASE VECTOR + (10) 
‘ wp To 


UNIT@14 -- BASE ADDRESS + (160) 
BASE VECTOR + (160) 


LOCATION '$DEvM’ IS USED AS A BIT MAP TO INDICATE WHICH UNIT 
NUMBERS ARE PRESENT AND WILL BE TESTED. 


BIT 15 BIT 14 - - - BIT 1 BIT O 





300 
sOEVM: 100015 


THE PROGRAM WILL TEST- 
UNIT@O 175610 
UNIT@1 175620 
UNIT@S 175640 
CONSOLE 177560 


LOCATION $USWR CONTAINS ALL THE USER SELECTABLE OPTIONS. THE 


VALUES IN THIS WORD MUST CONFORM TO THE ACTUAL 
CONFIGURATION. 


SEG 6 


41 
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THE DEFAULT VALUE OF SUSWR IS AS FOLLOWS: 


BIT POSITION DEFAULT VALUE 

0-3 10(6) = 6 

4 = NO 

5 « 000 
6 e YES 
7 « WO 
6-11 * 110 BAUD 
12 * YES 
i3 =» NO 
44 = NO 
15 « NO 








NOTE ON BITS <4;5> 
THIS DIAGNOSTIC DOES NOT TEST THE PARITY LOGIC. 


NOTE ON BITS <7:11> 
WHEN THE PROGRAMMABLE BAUD RATE OPTION IS 
RATE TEST 











THE MAINTAINCE JUMPER ALLED ON ALL OF 
THE OLV11-F MODULES WHEN THIS BIT IS SET. 
OLVi1-F INDIVIDUAL TEST REQUIREMENTS TABLE 
i! 2: 3: 4: 5S! 6! + eae 9 oes at pat Set tna ah pet ree peal et rot 





: 

e #8 feef & 8 tae Seeteoteetoetoe! § feefee!t Leelee! 

;. peer es 4.3 foo! £ Poof Footeoo! § F $F FF ! 

$ § ‘Yond £ 8 FYomt 8 PouodnnPonP--f--f $--!2--! X2 

ae Se OE ee oe ee ee ee ee ee eee ee 

. OS ee ea ee ee ef Ue lu, FF FF FF FF CY 

Poe ee an oe on ee ee Fe Fe & F&F F Fees F F 

IT SET eo Se ee ae oe Se oe ae oe oe ' ® ¢ £ & fend 

PROG BAUD RATE) BIT SET! !: !: !: !$: $ €$ €$ € $ ¢ ¢ x 9 —9—192 

RUN IF THIS CONDITION IS TRUE. 

RUN IF THIS CONDITION IS FALSE. 

RUN IF ALL OF THE CONDITIONS IN THIS COLUMN ARE FALSE. 


' 
| 


Ii 
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331 2.5 EXECUTION TIMES. 
—3— EXECUTION TIMES ARE FOR AN LSI-11 PROCESSOR WITH ALL OPTIONS 
ch? ENABLED ON THE DLV11-F CEXECPT FOR PROGRAMMABLE BAUD RATE), AT 
335 110 BAUD, AND NOT AT THE 
a FIRST PASS- 
3368 ADDITIONAL PASSES 95 SECONDS 
339 ADDITIONAL DEVICES 95 SECONDS 
340 
341 THE TEST TIME IS BAUD RATE DEPENDANT; HIGHER BAUD GIVES 
se SHORTER PASS TIMES. 
54 
yaa IF THE DIAGNOSTIC IS RUN AT THE CONSOLE 
_ ADORESS THE RUNNING TIME IS 5 SECONDS PER PASS. 
347 3.0 
348 
349 
350 3.1 
ss 
353 SINCE THIS DIAGNOSTIC WAS DESIGNED TO FIT IN 4-K OF MEMORY THE 
354 ERROR TYPEOUT IS VERY GRIEF. THE FORMAT OF THE ERROR TYPEOUT 
355 IS AS FOLLOWS: 
356 
357 
358 
359 WHERE ALL VALUES TYPED ARE OCTAL. 
360 THE ADDRESS AND VECTOR SEFER TO THE FAILING SLU’S. 
361 FOR FURTHER INFORMATION THE LISTING MUST BE CONSULTED. 
362 BITS 15.13.10 AND 9 OF THE SWITCH REGISTER CONTROL THE 
94 SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 
365 
366 BIT 15 - CAUSES THE PROGRAM TO WALT IN THE ERROR 
ae ROUTINE. CONTINUEING THE PROGRAM CAUSES IT TO 
369 : 
* BIT 13 - OISABLES THE PRINTING OF THE ERROR MESSAGE. 
oe BIT 10 - CAUSES THE GELL TO RING ON ERROR. 
374 BIT 9 - CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING 
Le OF TEST TO ERROR. 
8 THE ERROR ROUTINE SUPPORTS THE CONTROL G FUNCTION. 
379 3.2 ERROR HALTS 
SBO ee 222 
361 


THE ONLY HALT IN THIS DIAGNOSTIC IS IN THE ERROR ROUTINE, AND 
Is wy ONLY IF BIT 15 OF THE SWITCH REGISTER IS A ONE 
WHEN AN ERROR OCCURS. 


Jl 
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386 4.0 PERFORMANCE AND PROGRESS REPORTS. 
eS ERS —⸗ SRR Se 
388 
389 4.1 PERFORMANCE REPORTS. 
390 
391 DEVICE COMPLETES ONE PASS OF THE DIAGNOSTIC THE 
392 WILL BE TYPED: 
3 
395 _..’ IS THE DEVICE CSR UNDER TEST 
396 ‘VECTOR: __' IS THE ASSOCIATED VECTOR 
397 AND ERRORS: __‘ IS THE TOTAL NUMBER OF ERRORS ON THIS DEVICE 
396 ON THIS PASS. 
399 
400 
J * 
= THIS IS T AFTER THE DEVICE HAS COMPLETED ITS PASS. 
3 
po od 8 ALL DEVICES HAVE E ISED AN END PASS STA Is 
409 ' *ENDPASS@_____. * 
410 5.0 DEVICE INFORMATION TABLES. 
412 
413 i6 14 13 i2 i113 £10 3 8 7 6 5 a 3 2 i 0 
ALG PyevtyriTTi iri tt yi tii ttt titi titi ittititiitiiiitiititittt i iitiititititititii iti iit 
415 RCSR! H H : : : *RCVR!IRCVR! : : : : 'ROR ! 
416 : — — — DE E ‘ENB ' 
417 — 
416 uo: !P — RECEIVED DATA BUFFER ' 
419 mR fERR !ERR 'ERR ! : : : $ : 
420 —— —— — 
421 TCSR: PROGRAMMABLE BAUD !PER ! : : *XMIT!XMIT! : : 'MAIN! 'BREA! 
422 RATE SELECT 1ENAB! : : tRDY !IE !: : ! 'T : °K : 
423 Werrvvteererrrdereertvrerrererereerirertisertisestertreerersrrerenrrrererrtnnnn 
aca § : H : : HY : TRANSMITTER DATA BUFFER 
425 : : ! — 
—8 EEEEEEEEEE — 
426 
429 
H * 
432 BLANK BOXES INDICATE UNUSED AND RESERVED 
433 BIT POSITIONS. SEE THE LISTING FOR AN 
Pm EXPLANATION OF THE BITS. 
436 





MAINDEC -11-OVOVC-C 
CvOVCC .P11 


6.0 


K1 


MACY11 SOA(1052) 12-SEP-84 15:41 PAGE 11 
12-SEP-64 08:55 


SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 


THIS TEST 78 IES THAT THE ADDRESS AS PLACED 
HARDWARE 





RESPONDS TO THAT ADDRESS 


TEST é BREAK - TCSRO SET, CLEAR, RESET 


TEST 5 RCVRIE - RCSR6 SET, CLEAR, RESET 


THE FOLL 
READ ONLY 


TEST 6 RCVRDONE - RCSR 7 - IS CLEARED BY INIT 


WITH A CHARACTER AND THAT IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 


TEST 12 OUTPUTTING A CHAR FROM TBUF CWITH MAINT SET) 


IN RCVRDONE SETTING WITHIN A 
REASONABLE AMOUNT OF TIME AND THAT RESET 
CLEARS THE BIT. 





P-TABLE TO BE CCARECT AND THE OLV11-F 
S SPACE. 


eo TESTS VERIFY THAT RESET CINIT) INITIALIZES 





SEG 10 


Li 








SEQ 11 
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492 TEST 13 RCVRDONE IS CLEARED BY READING RBUF 

ee wee oe | See —— 

495 TEST 14 RCVRACT - RCSR 11 - SETS WHEN A START BIT IS 

4a eoesons es 

pe RECEIVED AND CLEARS WHEN RCVRDONE - RCSR 7 - 

498 SETS 

495 

300 

501 TEST 15 OVERRUN BIT - RBUF 14 

S020 ee 

Pe 

505 TEST 16 PROGRAMMABLE BAUD RATE TEST TEST AT ALL SPEEDS 

507 AVAILABLE A COMPARISON WIL! BE MADE TO SEE IF 

508 NEW TIME IS LESS THAN PREVIOUS. 

510 

11 TEST 17 TRANSMITTER INTERRUPT LOGIC TEST 

513 LOGICALLLY THIS IS 4 SEPARATE TESTS 

514 A) DOES TRANSMITTER INTERRUPT LOGIC WORK 

S15 8) AT PRIORITY OF 0 

516 C) AND ONLY ONCE 

327 D0) BUT NOT WITH INTERRUPT ENABLE CLEAR 

519 

320 TEST 20 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 

$22 OF THE RECEIVER SIDE OF THE INTERRUPT LOGIC IN 

523 CHARACTER MODE. 

so 

326 TEST 21 TEST ACTUAL DATA TRANSFERED NON-INTERRUPT 

528 MAINTENANCE BIT SET 

529 

530 

333 TEST 22 TEST DATA THROUGH WRAP 

33a 

339 TEST 23 FULL DATA TRANSFER WITH INTERRUPTS AND MAINTENANCE 

537 MODE . 

339 

* TEST 24 TEST BREAK GENERATION LOGIC TRANSMIT KNOWN CHAR 

* WITH BREAK SET AND COMPARE RECEIVED WITH 0. 

ao 

34s TEST 25 NOT A TEST - SEND BACK TO LOOP 


347 
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NOTE 


FOR ALL OF THE FOLLOWING ROUTINES THE USE 
OF CRS) IS PART OF THE LINKAGE MECHANISM 
BETWEEN THE CALLER AND THE CALLED. 


THIS ROUTINE IS USED TO TEST THE STATUS OF 
ANY BIT IN ANY REGISTER. 


HOWL ONG THE MAXIMUM AMOUNT OF TIME TO 
SPEND IN THIS ROUTINE. 

WHICHBIT A MASK WITH THE BITCS) SET THAT 
ARE TO BE CHECKED 

REG A POINTER TO THE REGISTER TO BE 


CHECKED 
SETCLR THE DESIRED RESULTS -- EITHER SET 
OR CLEAR 









THE 'C’ BIT IS SET TO INDICATE AN ERROR BUT IT 
IS TESTED BY THE IF.ERROR STATEMENT. 





nee eeaeeaeeweeee & 


THIS ROUTINE SETS UP A MASK FOR DATA, WITH - 


NOTHING IS PASSED TO THIS ROUTINE BUT GLOBAL 
INFORMATION IS ASSUMED TO EXIST: 

$USWR-- THE WORD FOR SOFTWARE PARAMETERS 
DATA-- A MASK FOR THE LOCATION OF THE OCTAL 
NUMBER OF DATA BITS 










MASK-- A MASK OF BINARY ZEROS RIGHT-JUSTIFIED 
THE NUMBER OF WHICH IS DEFINED IN $USWR WORD. 





THIS ROUTINE a ow TO DELAY EXECUTION OF THE 

FOR A SPECIFIED AMOUNT OF TIME. 
THIS IS I BY ING A 
REGISTER UP TO A LIMIT. THE INNER LOOP IS SE7 
TO APPROXIMATE 1 MICRO SEC. 






THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 


SEQ 12 


Ni 


SEQ 15 
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‘INTFLAG’ EACH TIME IT IS CALLED. IT ASSUMES 
THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
TO LOOK FOR. 







TO POINT TO THE 


OR TEST. 
IT KEEPS TRACK OF THE CURRENT DEVICE AND BIT 





cE — — —— — —— —— 


Be 



































SEQ 14 
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616 & 
617 , -C 
| 616 ;e@COPYRIGHT (C) 1977 
619 — TA EQUIPMENT 
620 eMAYNARD. MASS. 01754 
621 a 
622 ;@PROGRAMN BY ODES CHOATE 
623 10 
624 seTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
625 s@PACKAGE (MAINDEC-11-DZQAC-CS). JAN 19, 1977. 
626 12 
627 .SBTTL OPERATIGNAL SWITCH SETTINGS 
626 10 
629 10 SWITCH 
630 se tet eee 
631 10 is 
632 3° 14 
635 30 13 
OM 24 11 
635 36 10 
636 3¢ % LOOP ON ERROR 
i 10 a LOOP ON TEST IN SHR<7:0> 
os .SBTTL BASIC DEFINITIONS 
641 s@IMITIAL ADDRESS OF THE STACK POINTER eee 1100 see 
eed 001100 STACKe 
bas EQuIV ssBASIC OEFIMITION OF ERROR CALL 
7 BASIC DEFINITION OF SCOPE CALL 
— 
647 000011 
648 000012 
649 000015 
650 000200 3sCODE FOR 
yr 4 177776 ‘ | PROCESSOR STATUS WORD 
653 177774 s3sSTACK LIMIT REGISTER 
654 177772 i T REQUEST REGISTER 
177570 OSMRe 177570 REGISTER 
- 177570 OOISP=- 177570 
88 —— PURPOSE REGISTER OEFINITIONS 
659 oooooo 88 
660 000001 #1 88 
661 000002 ap : GENERAL 
662 000003 63 3 }GEMERAL REGISTER 
of % 200004 ea 3 GENERA. 
ota 000005 65 3 GENERAL 
655 O0A2006 66 s sGENERAL REGISTER 
666 000007 67 1 sGENERAL 
S67 000006 hy 3 s STACK 
= 000007 a7 a8 
670 aaa MY LEVEL DEFINITIONS 


671 000000 PRO= ssPRIORITY LEVEL O 


— — — — 





Ce 
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672 000040 40 1 
673 000100 100 > 
674 000140 140 3 
675 200 a 
676 000240 240 5 
677 900300 300 é 
678 000340 340 SSPRIORITY LEVEL 7 
:@°SMITCM REGISTER” SWITCH DEFINITIONS 
$uiS= 100000 
Suiée 
SW13= 20000 
SMi2= 10000 





Slile 
SWi0- 
S09 


4000 
2000 
10600 
400 
260 
100 
a&O 
20 
10 

& 

2 

i 
SWO9 . Suid 
S06 , SWB 
$407 , SU7 
S606 , SWE 
SWOS . SWS 
SHOS , Sd 
SOS, SUS 
SuOe , Se 
SOL. Sidi. 
SHOO , S40 


INMITIONS (BITOO TO BIT15) 


100000 
48006 
20000 
10000 
4000 
2000 
1000 
406 
200 
100 
40 

20 

10 

& 

2 





Swo2= 
01⸗ 











a 

BITO9.BIT9 
BITS .BITs 
BIT07 .BIT7 





f 


| MAINDEC -11-OVOVC -C 


| CvOVCC.P11 


751 


12-SEP-64 
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BITOS6 .BIT6 
BITOS.BITS 





De 


PAGE 17 


TRAP (BPT) 
ssINPUT/OUTPUT TRAP (CIOT) eeSCOPEcs 
3sPOWER FAIL 
gg (EMT) eeERRORes 


ssTTY KEYBOARD VECTOR 
ssTTY PRINTER VECTOR 
ssPROGRAM INTERRUPT REQUEST VECTOR 








FOLLOW= R4 
OLADOR= 175610 





Ly — DEFINITIONS APPLY TO THE GLOBAL SUBS 
CLRe 0 


£8 SSHSSSSSSSSHSSSSSSHSSSHESSSSSHSSSSHSHSSSSSSSHHHSSSSSSSSHHSESEEEEESES 
Ss 


REGISTER BIT 








a 


ie 






Bf SSHSSSSHSSSHSASSSSSSHSSSSHSSSSSSSSSSSSSSSHSSSSSSSSSHSSHOESEOSSEESS 


s RECEIVER ACTIVE INDICATOR 


s RECEIVER DONE 
s RECEIVER INTERRUPT ENABLE 





s READER RUN 


SEQ 16 


C-11-Ov0vC-C 


MAINDE 
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764 

785 

786 

767 

788 

769 


793 
797 


601 
805 


000200 
000100 
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BASIC DEFINITIONS 


£ fs FSESSSSSSSSSSSSSSSSSSOHSSSSSSSSSSSSSHSHSSHSSHSSHEHHAHSHSHHSSHEHSESSE 


REGISTER BIT NAMES 


3s FRAMING ERROR 
; PARITY ERROR 









RECEIVED DATA BITS 





oc Ge Ge @ Ge Ge 
a 





TCSR REGISTER BIT 
PP SSCHOKHE SEAL SECKESH SERS HARHE HSESASCEEHESBHHEHLALSEHEESHESELEREEMKE SOS 
s \N 
\ PROGRAMMABLE BAUD 
/ RATE BITS 


é 
3 
3 7/ 

3 ENABLE SETTING OF 

3 PROGRAMMABLE BAUDE RATE 


s TRANSMITTER READY 
TRANSMITTER INTERRUPT ENABLE 


s MAINTENANCE SET BIT 
s SEND BREAK (CONTINUOUS SPACE ) 





£ § SSSSSSSSSSSSSESSASSSSSHESSSSSSSSSSSSSSSSSSSSSESSSHSSSSSHSHSSSESEE 


5 TOUF REGISTER BIT NAMES 


§ § SSOHSSSSSSSSSSHSSSSSHSSSSHSSSSHSSSESSHHHSSSSSHSSSSESEHSESSSEAESEES 


SEQ 17 





FO 








SEO 18 
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000040 TDATAS= BITOS 1 
841 000020 TOATA4= BITOS : \ TRANSMITTER DATA BUFFER 
000010 TOATAS= BITO3 + 7 
ea 000004 TOATA2= BITO2 +! 
000002 TOATAI= BITO1 +! 
as 000001 TOATAO= 7, 
847 
B48 Bf SSSSSSSSSSSSSSSSSSSSSHSSSHSSSSSSSSSOHSSESSESSSEESEHSESEESEESEHEEED 
8a9 : FLAG BITS TO BE USE OR CLEARED IN SUSIR. 
651 000017 17 
852 000020 20 
— 000040 40 
asa 000100 100 
855 
B56 
857 ON THE UPPER 
858 OF $USUR.--4 BITS 
659 007400 7400 
660 010000 10000 
861 020000 20000 
B62 040000 40000 
BAS 100000 100000 
Bead 2s SSSSSSSSSSSSSSHSSSSSSHSSSSSTSSASSSHSESSSSSHSHSSSHSHSSESESSHEHKEEEE 
865 .SBTTL TRAP CATCHER 
S64, 
867 000000 20 
868 :@ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 


s@SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
s@LOCATION 0 CONTAINS © TO CATCH IMPROPERLY LOADED VECTORS 


671 000174 -°174 
DISPREG: .WORD 0 3s s SOF THARE Sa REGISTER 


SWREG: .WORD O 3 CH REGISTER 
674 -SBTTL STARTING ADDRESS(ES) 
JP BOSTART 4; JUMP TO STARTING ADDRESS OF PROGRAM 








MAINDEC -1 
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860 
661 


— ESRF ESESSSESER EER 
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r̃ii HOOKS 
.SBTTL ACT11 HOOKS 
1 ü18 ä 56 
REQUIRED BY ACT11 
— ;SAVE PC 
VENDAD :21)SET LOC.46 TO ADORESS OF SENDAD IN . EOP 
.WORD 0 ::2)SET LOC.S2 TO ZERO 
. = $SVvPC 33 RESTORE PC 


. ©1000 
.SBTTL APT PARAMETER BLOCK 


Whoo rrr 
sSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
IXXXXVXXXIXXXEXXIXERXRERRR 
.$X*. 33SAVE CURRENT LOCATION 
es POWER hee TO START OF PROGRAM 








IIXEEEXEIIE 
sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
sINTERFACE SPEC. 


SAPTHD: 






















SUNITM: 





20. 13400 
SETEND- SMAIL/2 3:LENGTH MAILBOX -ETABLEC WORDS ) 


sHIBTS: 0 33TWO HIGH BITS OF 16 BIT MAILBOX ADOR 

MBAR : SMAIL ;;ADORESS OF APT MAILBOX (BITS 0-15) 

STSTM: be 33RUN TIM OF LONGEST TEST 

SPASTM: 4s. 3sQUN TIME IN SECS. OF 1 ON 1 UNIT (QUICK VERIFY 


) 


ST PASS 
ITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


a. 11-OvOvc-C 
Cvovcc. 


924 
925 
“ats 
927 
926 
929 
930 
931 
932 
935 
ghd 
935 
93% 
937 
938 
939 
240 
‘MOY 
942 
943 
Bis 
945 
S86 
947 
248 
249 
950 
951 
952 
953 
94 
955 
** 
957 
9568 
959 
960 
961 
962 
963 
964 


Pil 


~ 
38 S8sssssss s 
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000377 








He 
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COMMON TAGS 


SEQ 20 


-SBTTL COMMON TAGS 





























3@THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
3 USED THE PROGRAM. 
-*1100 
ssSTART OF COMMON TAGS 
WORD O 
BYTE O ssCONTAINS THE TEST NUMBER 
BYTE O s sCONTAINS ERROR FLAG 
—_ : ssCONTAINS SUBTEST ITERATION COUNT 
WORD O 
WORD O 
BYTE O 
BYTE 1 
WORD O 
WORD O 
WORD O 
WORD O 
WORD O 
WORD O 
WORD O 
BYTE O s sAUTOMATIC MODE INDICATOR 
BYTE : ssINTERRUPT MODE INDICATOR 
WORD OSWR ssADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD ODISP s sADORESS OF DISPLAY REGISTER 
177560 ssTTY KBO STATUS 
177562 sa TTY 
177564 ssTTY PRINTER STATUS REG. ADORESS 
yi BUFFER REG. ADORESS 


3 


<207 ><377><377> - 
42/ 

<15> 
<12> 14 
IEXXXXXXEXXEIEXXVEXYVERREEREEERERRR 
-SOTTL HILBOX-EIMLE 
IIXXXXXXXXXEXXXIXXRXRERXR 


ss APT Mn 
s sMESSAGE TYPE CODE 
T VEATAL ERROR NUMBER 
NUMBER 
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961 


SSSSRIZIIIISESHLELES 


~ 





$2-SEP-64 06: 
001212 000000 
001214 
001214 000 
001215 000 
001216 

1220 011110 
001222 

001224 000 

001225 000 

001226 000000 

1230 000 

000 

000000 

000 

000 

000000 

000 

000 

900000 

000300 

000000 

175610 

100000 


SMAMNS1: .BYTE 
BYTE 





2 
& 


PEELE EEL EEL 





3 
3 


—— 





12 


SEG 21 
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3 APT MAILBOX-ETABLE 





1 sMESSAGE LENGTH 

s3APT ENVIRONMENT TABLE 
s sENVIRONMENT BYTE 
s sENVIRONPENT MODE BITS 
33APT SWITCH REGISTER 
SWITCHES 










$8 
t — TYPE , OPTIONS 
BITS 15-11°CPU TYPE 
11/0401, 11/05*02,,11/20°03,11/40°04 ,11/45*05 
170206 7,Q@*10 






BLKe4 
VECTOR@1 , BUS PRIORITY@1 
ss IKTERRUPT VECTOR@2ZBUS PRIORITYS2 
2 sBASE a OF TE 
3 :DEVICE MAP 





: Jo 


SEQ 22 


MAINDEC -11-OVOVC-C MACY11 SOAC1052) 12-SEP-84 15:41 PAGE 25 
CvOvcc .P11 12-SEP-84 06:55 ERROR POINTER E 


TABL 
.S6TTL ERROR POINTER TABLE 


s@THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

s@THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
IF ¢ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


ssPOINTS TO THE ERROR MESSAGE 
3sPOINTS TO THE DATA HEADER 
ssPOINTS TO THE DATA 

ssPOINTS TO THE DATA FORMAT 

















> 
~ 
Bd 








Ge 
yr 
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MACY11 


12-SEP-64 06:55 


001100 
001140 
001100 
* 


177777 
011410 
001672 
000042 
177352 


30A(1052) 12-SEP-64 15:41 PAGE 24 
ERROR POINTER TABLE 





177366 
177362 


177417 
177332 


000001 


START: 


as 
» sINITIALIZE A FEW VECTORS 












AREA 
ssFIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 


BACK IF NO 
+sSETUP THE STACK POINTER 


— «. ssIOT _— FOR SCOPE ROUTINE 
SCENTVEC ENT VECTOR FOR ERROR ROUTINE 





‘8 IF NO TIMEOUT 
3sSET UP FOR TRAP RETURN 
ssPOINT TO SOFTWARE SWR 
ssRESTORE ERROR VECTOR 


UNDER APT 
APT SWITCH 
+4NO, USE APT SWITCH REGISTER 


MOV —2* 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
POVE 
MOV 
MOV 

:3SIZeE FOR A 

3sEQUAL TO A 
MOV 
MOV 
MOV 
et] 
CoP 
— 
BR & 

64%: MOV 065% , (CSP) 
RTI 

65%: MOV 
MOV 

663: MOV 
CLR 
BITS 
Gee 

* MOV 

“SBT TYPE PROGRAM NAME 

we oe se ee Pe oe 

INC @-1 IME 
683 
CHP PSENDAC , SSS 
BE S83 
TYPE 696 

-SBTTL GET VALUE FOR SOFTWARE 
TST Bod 2 
Bie 70% 
CMPB sENV , #1 
BEG 70% 








SEQ 25 


i 
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026727 177266 000176 
001005 


000405 
112767 
000410 





MACY11 SOAC1052) 12-SEP-84 15:41 PAGE 25 
12-SEP-64 06:55 GET VALUE 


000001 177244 


70%: 
718: 





chp 
BNE 
GTSWR 





L2 
SEQ 24 
FOR SOFTWARE SWITCH REGISTER 
SWR , @SWREG s:SOFTWARE SWITCH REG SELECTED? 
718% 14 IF NO 
ne 33GET SOFT-SWR SETTINGS 
#1, ¢6UTOS 33SET AUTO-MODE INDICATOR 








BR 
-ASCIZ 





68% 33GET OVER THE ASCIZ 
<CRLF >eMD-11- pvove-Ce<CRLF> 
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012167 


011167 
016701 


016767 
016767 
062767 


016767 
062767 






016767 
062767 


016767 
062767 


012705 
000005 





MACY11 
06:55 


177334 


177106 


177104 
177076 


177072 


177064 
000002 
177050 
000004 
177034 
000005 


177020 
000006 


001334 
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177074 
177070 
177062 
177056 
177050 
177044 
177036 


177032 
177024 


Me 


SEG 25 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


300018: 


WHILE #DEVM E@ #0 DO 





I HAVE NO DEVICE TO TEST.!> 















<<CRLF>!SET UP SDEVM TO INDICATE ACTUAL CONFIGURATION. !> 
Li id <<CRLF>!TYPE PROCEED (CP) TO CONTINUE. !> 
ENDDO 
BR 50000$% 
LET INITFLAG := #1 
MOV #1, INITFLAG 
LET BITMASK := @#BIT15 ; START AT CONSOLE 
MOV #6IT15,.BITMASK 
CALL CYCLE 3 NO ARGUMENTS--ADORS -> NEXT ADDRESS 
JSR Pc CYCLE 
; ADORS:«2 -> NEXT VECTOR 
;GET UNIT ADORESS 
LET DLADD := CADRS)+ 
MOV CADRS )+ .DLADD 
sGET UNIT VECTOR 
LET DOLVEC := CADRS) 
MOV CADRS ) .DL VEC 
LET ADRS := DLADD 
MOV DLADD , ADRS 
sRCSR = DLADD + O 
LET RCSR =:= DLADOD 
MOV OLADO.RCSR 
LET RBUF := DLADD + @2 
MOV DLADO , RBUF 
ADO 02 ,RBUF 
LET TCSR := DLADD + 4 
MOV DLADO., TCSR 
ADO @4,TCSR 
LET TCSRHI := DLADD + 5 
MOV DLADO , TCSRHI 
ADD #5 , TCSRHI 
LET TBUF := DLADD + 06 
MOV DLADO . TBUF 
ADO 66, TBUF 
LET RS := @RSSTACK 
MOV @RSSTACK RS 
3 sBRESET 
RESET 


r 


pe oe = a 11-OvOvC-C 
Cvovcc. 
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000004 
012767 
012767 


016701 





062767 


016701 
066701 


026727 
0013535 


010145 
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000002 176676 
000001 176710 


176760 


176562 


000002 176720 


Ne 
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ADDRESSABILITY 





JF SSSSSSSSSSSSSSSSSSSSSOSSSSSSSHSSSSSSSSSSSSSESESESSSSHHESKEOEHESES 


3*TEST 1 






ADORESSABILITY 
THIS TEST VERIFIES AS PLACED IN 

THE HAROWARE ay. TO BE CORRECT AND THE DLV11-F RESPONDS 
to THAT ADDRESS SP 


THAT THE ADDRESS 


1 ne. |, eres 





TSTi: SCOPE 
MOV #2, ¢TIMES 
MOV #1, $TESTN 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 1 

300029: 
MOV 6644 , $SLPERR 
CLR INTF'.G 
TST @ADRS 
TST 
BEQ 50003% 
ERROR 1 

50003$: 
ADO 62.1 
MOV DLADO , ADRS 
ASD I, ADRS 
CoP I,#6. 
BNE § 
MOV R1,-CSP) 


s00 2 ITERATI 


’ GAS 
33SET a eee IN APT MAIL BOX 


ADRS := DLADD 


: SET UWP INTERRUPT 
SETVEC OILLMEM, @INTSRV , OPR7 


sCLEAR FLAG 
LET INTFLAG := #0 


sREAD FLAG 

IF INTFLAG NE #0 THEN 

; FATAL ERROR 
ERROF 1,.,NOODL 

ENDIF 


ENDSUB 
LET I :* I+ #2 
LET ADRS := DLADD «+ I 


UNTIL I EQ #6. 


CLRVEC ILLMEM 
3;PUSH R1 ON STACK 





SEQ 26 


83 
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SEQ 27 





1sPUSH R2 ON STACK 
000004 


000002 
s3sPOP STACK INTO R2 


33sP0P STACK INTO Ri 
sEND OF TEST 
ENDTST 


g50sesss 








| 
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032 
001401 


012767 
052777 


032777 
001001 


104003 


MACY11 we ee aes 64 15:41 
12-SEP-64 06:55 ADORE SSAB 


002474 


000001 


1763530 
176342 


176534 
176540 


176474 


176414 


176562 


176374 
176542 


176534 





oo 


PAGE 29 
ILITY 


3@ THE FOLLOWING 6 TESTS TEST Al ‘READ WRITE’ BIT 


SEQ 26 


IXXIXXXXXXXIXRüREXEXVVXVXXYV 
BRE AK CSRO T 





o 
é ———— ——— — — — 
: 

















010, $TIMES 3300 10 ITERATIONS 
@2,STESTN 33SET TEST NUMBER IN APT MAIL BOX 
IF @BRK NOTSETIN SUSWR OR OAPTENV SETIN SENV THE 
$0004: 
EXIT TEST ; BREAK NOT INSTALLED 
@1,$TIMES 
T3 sss€XIT THIS TES: 
ENDIF 
500058: 
; SEE IF IT IS CLEAR 
BONSLB 
MOV 0646 , SLPERR 
IF @BREAK SETIN STCSR THEN 
BIT @BRE AK , BTCSR 
BEG 50006 $ 
3 GREAK DID NOT RESET IN TCSR 
ERRHRD 2. .0IDNOT 
ERROR 2 
ENDIF 
500066 : 
ENDSUB 
3; TRY TO SET BREAK BIT 
BGNSUB 
MOV 0656 , SLPERR 
LET STCSR := BTCSR SET.BY @GREAK 
61s GBREAK . @TCSR 
; STUCK T0 0 
IF @BREAK NOTSETIN @TCSR THEN 
eIT CBREAK . STCSR 
BAe 50007 ¢ 
p OREM OID NOT SET IN TCSR 
ERRHRD S.. 
ERROR 3 


ENDIF 





D3 





















SEQ 29 
MAINDEC -11-OVOvC-C MACY11 SOAC105S2) 12-SEP-64 15:41 PAGE 30 
CvOvcc .P11 12-SEP-84 06:55 T2 BREAK - TCSRO SET, CLEAR, RESET 
12535 5$0007$%: 
i254 END SUB 
1255 
1256 : TRY TO CLEAR A SET BIT 
1257 BGNSUB 
1258 012767 002542 176546 MOV 066% , SLPERR 
1266 LET STCSR :* BTCSR CLR.BY eBREAK 
1261 042777 000001 176514 eIc @GREAK . STCSR 
1262 s SHOULD HAVE CLEARED 
1263 IF @OREAK SETIN BTCSR THEN 
1264 032777 000001 176506 BIT @BREAK ,BTCSR 
1265 001401 BEG $0010% 
1766 3 BREAK DID NOT CLEAR IN TCSR 
1267 ERRHRD 4. .DIDNOT 
1268 104004 ERROR 4 
1269 ENDIF 
1270 50010$: 
1271 ERDSUB 
1272 
1273 : WOW SEE IF RESET CLEARS IT 
1274 SGONSUE 
1275 MoV 067% , SLPERR 
1277 LET STCSR := STCSR SET.BY @GREAK 
1278 052777 000001 176466 ers GOREAK , 8TCSR 
—8 1155E BUS RESET 
1260 BRE SET 
1261 000005 RESET 
1262 IF @BREAK SETIN STCSR THEN 
1263 032777 000001 176456 BIT OBREAK ,@TCSR 
1284 001401 $00118 
—* 3; BREAK DID NOT ,RESET IN TCSR 
1267 104005 ERROR 5 
1268 ENDIF 
1269 $00116: 
1290 
1291 ENDTST 
1292 
1293 





MAINDEC -11 -OVOVC -C 
CvOvcc .P11 


12-SEP-64 06:55 





ES 


MACY11 SOAC1052)> 12-SEP-64 15:41 PAGE 51 
12 BREAK - TCSRO SET. CLEAR, RESET 


§ FE SSSSSSNSSSSSSSSSSSSSHSESSHSSSSSESSSSSSSSSOSSSESSSSSSSSEESESESHHE 868 
£ f SSSSHSSSSSSSSSSSSHSSSTSSSSSHSASSHSSSSSSSSESHSHSSSHHSSESOHEHSEEHE 
T 


SEQ 30 

















seTEST $ MAINT - TCSR2 SET. CLEAR, 
IXEXEXXXEEXXEEE 
TSTS: 
MOV #10, ¢TIMES 33:00 10 ITERATIONS 
MOV @3, ¢TESTN 33SET TEST NUMBER IN APT MAIL BOX 
IF @MAINTJAUPP NOTSETIN SUSUR ORB CONSOLE EQ eTRU 
BIT GMAINT JUMP , SUSUR 
BEG 50012% 
CHPB CONSOLE , @TRUE 
$0013% 
§$0012$: 
EXIT TEST 
MOV @1,$8TIMES 
BR TST4 s3s€XIT THIS TEST 
ENDIF 
50013: 
s SEE IF IT IS CLEAR 
6GNSUG 
MOV 064% , SLPERR 
IF @MAINT SETIN STCSR THEN 
@MAINT , STCSR 
$0014% 
3 MAINT DID NOT RESET IN TCSR 
‘ ERRMRD 6. .DIDNOT 
ENDIF 
50014: 
ENDSUS 
3 TRY TO SET MAINT BIT 
BGNSUS 
MOV 665% , SLPERR 
LET STCSR := STCSR SET.BY OMAINT 
BIS MAINT , @TCSR 
; STUCK TO 0 
IF @MAINT NOTSETIN S@TCSR THEN 
BIT @MAINT , @TCSR 
BNE 500154 
; MAINT DID NOT SET IN TCSR 
ERRHRD 7. ,.OIDNOT 
ERROR 7 
ENDIF 
$0015: 
ENDSUB 


5 TRY TO CLEAR A SET BIT 
BGNSUB 
MOV 066% , $SLPERR 


LET @TCSR -= @TCSR CLR.BY MAINT 
BIC @MAINT ,BTCSR 





rs 


MACY11 SOA(1052) 12-SEP-64 15:41 PAGE 32 


SEQ 31 
MAINDEC -11-OVOVC -C 
CvOvcc .P11 12-SEP-64 06:55 





+ SHOULD HAVE CLEARED 
IF @MAINT SETIN BSTCSR THEN 
032777 000004 176514 BIT @MAINT ,@TCSR 
001401 BEG 50016% 
3 MAINT DID NOT CLEAR INTCSR 
ERRHRD 10, ,OIDNOT 
104010 ERROR 10 
ENDIF 
500168: 
ENDSUB 
; NOW SEE IF RESET CLEARS IT 
BGNSUB 
012767 002762 176126 MOV €67$¢ , $LPERR 
LET STCSR :* STCSR SET.BY @MAINT 
052777 000004 176274 ‘6IS @MAINT , STCSR 
3 ISSUE BUS RESET 
BRESET 
000005 RESET 
IF @MAINT SETIN STCSR THEN 
032777 000004 176264 BIT @MAINT . STCSR 
001401 BEG 50017% 
3 MAINT DID NOT RESET IN TCSR 
ERRHRD 11..DIDNOT 
ERROR ii 
ENDIF 
50017$: 


ENDTST 








MAINDEC -11-OvOVvC-C 
12-SEP-64 06:55 


CvOvCcc .P11 





176144 
176156 


176046 


176214 


176026 
176174 


176166 


176000 


176146 


176140 


G3 


MACY11 SOA(1052) 12-SEP-64 15:41 PAGE 35 
TS MAINT - TCSR2 


SET, CLEAR, RESET 





SEQ 32 


seTEST 4 MMITIE - TCSR6 SET, CLEAR, RESET 
ic 
010, ¢TIMES 3300 10 ITERATIONS 
MOV o4, ¢TESTN 33SET TEST NUMBER IN APT MAIL BOX 
s USE PRIORITY OF 7 
MOV @PR7, -CSP) 33PUT NEW PS ON STACK 
MOV 064% , -(SP) 33PUT NEW PC ON STACK 
RTI 33P0P NEW PC AND PS 
64%: 
; SEE IF IT IS CLEAR 
BGRSUB 
MOV 065% , SLPERR 
IF @XMITIE SETIN STCSR THEN 
BIT @OxMITIE .STCSR 
REQ 500208 
XMITIE DID MOT RESET IN TCSR 
ERRHERD 12, ,.DIDNOT 
ERROR i2 
ENDIF 
500208 : 
ENDSUB 
3 TRY TO SET XMITIE BIT 
BGNSUS 
MOV 065% , SLPERR 
LET STCSR := BSTCSR SET.BY @xMITIE 
BIS @OXMITZE .S@TCSR 
; STUCK 10 0 
IF @XMITIE NOTSETIN @TCSR THEN 
BIT OXMITIE ,@TCSR 
Be $0021 
; XMIT DID NOT RESET IN TCSR 
ERRHRD 13, .D0IDNOT 
ERROR 13 
ENDIF 
$0021%: 
ENDSUB 


s TRY TO CLEAR A SET BIT 
BGNSUS 
MOV 067% , SLPERR 


LET @TCSR :* STCSR CLR.BY OXMITIE 


BIC OXMITIE ,STCSR 
‘ 


SHOULD HAVE CLEARED 
IF OXMITIE SETIN STCSR THEN 


BIT @xXMITIE ,@TCSR 
BEQ 350022$ 


s XMIT OID NOT CLEAR IN TCSR 


ERRHRD 14.,DIDNOT 


ERROR 14 





| — 


MAINDEC -11-DVDVC-C MACY11 3OA(1052) 12-SEP-84 15:41 PAGE 34 see 55 
CVOVCC.P11 12-SEP-64 06:55 14 MMITIE - TCSR6 SET, CLEAR, RESET 
1439 003130 ENDIF 
1440 003130 500228: 
1441 003130 ENDSUB 
1443 ; NOW SEE IF RESET CLEARS IT 
1444 003130 BGNSUB 
1445 008130 012767 008136 175752 MOV 46860, SLPERR 
LET  BTCSR :* STCSR SET.BY exMITIE 
000100 176120 BIS - exMITIE. @TCSR 
; ISSUE BUS RESET 
BRESET 
— IF XMITIE SETIN 
⸗ BTCSR THEN 
000100 176110 BIT OXMITIE. @TCSR 
BEQ 500238 
; XMIT DIO NOT RESET IN TCSR 
ERRHRD 15, .0IDNOT 
ERROR 15 
ENDIF 
500238: 


ENDTST 








MAINDEC -11-DVOVC -C 
CvOvCc .P11 





000004 
012767 
012767 


032777 
001401 





ig 


MACYi1 ee? — 15:41 PAGE 35 


12-SEP-64 06:55 


175770 
176002 


175704 


176046 


175772 


MMITIE - TCSR6 SET, CLEAR, RESET 


£ § SSSSSHSSSSSSSSSSSSSHSHSHSSSSSHSSSSSSSSSHOSSSSSSHEEESHESESESHEEHE 
§ § SSSHSSSSSSSSSSSSHSHSSSHSSSSOSSSSSSSSSS SOSSHSHSHSASHSESHEASESESE 


:eTEST 3 RCVRIE - RCSRG SET, CLEAR, RESET 
 _< ———— 


TSTS: 


MOV #10, $TIMES 3:00 10 ITERATIONS 
MOV 05, $TESTN 3sSET TEST NUMBER IN APT MAIL BOX 
» SEE IF IT IS CLEAR 


MOV 064% , $SLPERR 


SEQ 34 


IF @RCVRIE SETIN GRCSR THEN 


BIT @RCVRIE , SRCSR 
50024 $ 








; SHOULD HA 
BIT @RCVRIE , BRCSR 
50026 $ 


s RCVRIE DID NOT RESET IN RCSR 
ERRHRD 35. .OIDNOT 


35 
ENDIF 
ENDSUB 
s TRY TO SET RCVRIE BIT 
BGNSUB 
065% , $LPERR 
LET GRCSR := GRCSR SET.BY ORCVRIE 
@RCVRIE . GRCSR 
; STUCK T0 0 
IF @RCVRIE NOTSETIN GRCSR THEN 
@RCVRIE . GRCSR 
50025% 
3; RCVRIE DID NOT mail IN RCSR 
ERRMRD ee 
Re 
ENDIF 
ENDSUB 
: TRY TO CLEAR A SET BIT 
BGNSUB 
6665 , SLPERR 
LET @RCSR := GRCSR CLR.BY @RCVRIE 
@RCVRIE , GRCSR 


VE CLEARED 
IF @RCVRIE SETIN GRCSR THEN 


s RCVRIE DID NOT CLEAR IN RCSR 
ERRHRD 


37, .OIONOT 
ERROR 37 
ENDIF 
ENDSUB 


s NOW SEE IF RESET CLEARS IT 
BGNSUB 











OvDvc -C 


MACY11 30A( 1052) 


12-SEP-84 06:55 


012767 003300 175610 


052777 
000005 
032777 
001401 


104040 


0001900 175752 


000100 175742 


7S 


50027$ : 


MOV 


JS 


12-SEP-64 15:41 PAGE 36 


67%, $LPERR 


@RCVRIE , GRCSR 


@RCVRIE , GRCSR 
50027% 


ENDTST 


SEQ 35 


LET GRCSR := GRCSR SET.BY ORCVRIE 


s ISSUE BUS RESET 
BRESET 


IF @RCVRIE SETIN GRCSR THEN 


s RCVRIE DID NOT RESET IN RCSR 
ERRHRD 40, ,.DIDNOT 


ENDIF 
CKLOOP 





an K3 









SEQ 36 

MAINDEC - 11 -DVDVC-C MACY11 SOA(1052) 12-SEP-84 15:41 PAGE 37 
CVOVCC.P11 12-SEP-84 06:55 TS RCVRIE - RCSR6 SET, CLEAR, SESET 

1343 1 § SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSASSESESHHSSSSSSHASSSEESHESOHESEHOHE 

1544 ,¢ THE FOLLOWING 4 TESTS VERIFY 

1545 ;¢ THAT RESET (INIT) INITIALIZES READ ONLY BITS. 

1546 § i SSOHSSSSSSSSSHSSSHSSSSSSSSSHSSSHS SHS HSSSHSSSHSHHHSHSHOKSESHASEDEEEE 

15347 fp PPRSSRESEHKEHEEETESERHSSHRLEHHESRAFHOSHEHESSHEESHSAARESAEKESERERE BORE 

1548 ,;eTEST 6 TEST THAT RCVRDONE - RCSR 7 - IS CLEARED BY INIT 

1549 EE ROHSESREAESHOEAGAGPERAEREEEBHADSEESSERABSEOHROAERELHSARHESDEDHAREROH 

1550 003322 000004 TST6: 

1551 003324 012767 000010 175626 MOV —«- #10, STIMES 1:00 10 ITERATIONS 

1552 003332 012767 000006 175640 MOV 06, $TESTN :3SET TEST NUMBER IN APT MAIL BOX 

1 

1554 

1555 

1556 

1557 003340 BGNSUB 

1558 003340 012767 003346 175542 MOV 4646, SLPERR 

1559 003346 IF @RCVRDONE SETIN SRCSR THEN 

1560 003346 032777 000200 175704 BIT  § @RCVRDONE,GRCSR 

1561 005354 001402 BEQ = 500308 

1563 sRCVRDONE SHOULD HAVE CLEARED BY INIT 

1564 ; RCVRDOME DID NOT CLEAR IN RCSR 

1565 003356 ERRHRD 41,HRESET, DIDNOT 

1566 003356 104041 ERROR 41 

1567 REISSUE RESET 

1568 003360 BRESET 

1569 003360 000005 RESET 

1570 003362 ENDIF 

1571 003362 500308 : 

1572 ;ALLOW LOOPING AFTER ERROR 

1573 003362 CKLOOP 

1574 003362 ENDSUB 

1575 003362 ENDTST 

1576 

1577 





| [3 J 
MAINDEC - a1ovove· MACY11 SOAC1052) 12-SEP-84 15:41 PAGE 38 SEQ 37 
CVOVCC.P11 12-SEP-84 06:55 16 TEST THAT 





- RCSR 7 - IS CLEARED BY INIT 


IIIXXXXXXXXXXXXXEXRREEEEEEEEOE 
IXXXXIXXIXVRXXXXXXREIRXXVEEEERREEEEEEEROR 
216577 TEST THAT RCVRACT - RCSR 11 - IS CLEARED BY INIT 


§ i SSSSSHSESSSSSSSSSOSSSSSSSSSSSSSKESSSSOSSHHSHSSHASSEHASSSESEEEOESE 

















TST?7: 
000010 175566 #10, $1 IMES 3300 10 ITERATIONS 
000007 175600 MOV 07,87" STN 33SET TEST NUMBER IN APT MAIL BOX 
IFB CONSOLE EQ @TRUE THEN 
005521 000001 CHPB CONSOLE , @TRUE 
Bee 50031% 
33 EXECUTE TEST 
ELSE 
300326 
300318: 
IF @WRAP SETIN SUSWR THEN 
020000 175600 
003420 
33 EXECUTE TEST 
003422 ELSE 
003422 50034 
Oa 50033%: 
OSA IF @MAINT SETIN SUSWR THEN 
003424 000004 175566 BIT @MAINT , SUSUR 
003432 BEQ 
3 EXECUTE TEST 
1606 003434 ELSE 
1609 003434 000404 BR 50036 $ 
1610 003436 50035: 
1611 003436 EXIT TEST 3 LINE MUST BE TERMINATED 
1612 003436 012767 000001 175514 MOV 01, ¢TIMES 
1613 003444 000414 aR TSTi0 323s€XIT THIS TEST 
1614 003446 ENDIF 
1615 003446 50036%: 
1616 003446 ENDIF 
1617 003446 50034: 
1618 003446 ENDIF 
1619 003446 500324: 
1620 
1621 003446 SCNSUB 
fer 003446 012767 003454 175434 MOV 064% , $LPERR 
1624 003454 IF @RCVRACT SETIN G@RCSR THEN 
1625 003454 032777 004000 175576 BIT @RCVRACT , BRCSR 
1626 003462 001405 BEQ 50037% 
1628 ;RESET SHOULD MAVE CLEARED RCVRACT 
1629 003464 LET STCSR := STCSR CLR.BY @MAINT 
1630 003464 042777 000004 175572 BIC @MAINT ,OTCSR 
1631 003472 ERRHRD 44, HRESET, DIDNOT 
1632 003472 104044 ERROR 44 
1634 ; TESTING EFFECT OF RESET ON BIT 





M3 


MAINDEC - 11 -OVDVC -C MACY11 SOAC1052)__ 12-SEP-84 15:41 | PAGE 39 SEQ 368 
CVOVCC.P11 12-SEP-84 06:55 TEST THAT RCVRACT - RCSR 11 - IS CLEARED BY INIT 

1635 

163? sRCVRACT DID NOT CLEAR IN RCSR 

1638 

1639 003474 4* ANOTHER TRY 

1640 003474 000005 RESET 

1641 003476 eorr 

a. 003476 50037$: 

1644 003476 cx oft Ow LOOPING ON ERROR 

1645 003476 pose 

ENDTST 


NS 


PAGE 40 
T RCVRACT - RCSR 11 - IS CLEARED BY INIT 


§ J SSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSHSSSSHSASSSSESSSSHSSSSSSSEHHSSES 







MAINDEC -11-OVDVC -C MACY11 SOM See —— 9 om 
: i 12-SEP-64 06:55 TEST 













> ee eee eee 
* 10 TEST THAT XMITRDY - TCSR 7 - IS SET BY INIT 
| SOMSSSSSSSESEHSSSOSESEESESEEESESESESESSEDSESSESEOESEEEESEESERES 
000004 TST10: SCOPE 
012767 000010 175452 MOV #10, $TIMES 3300 10 ITERATIONS 
012767 000010 175464 MOV #10, STESTN 33SET TEST NUMBER IN APT MAIL BOX 
BGNSUB 
012767 003522 175566 MOV 064% , $SLPERR 
IF @XMITRDY NOTSETIN STCSR THEN 
032777 000200 175534 BIT @XMITROY , @TCSR 
001002 BNE 50040 % 
sRESET SHOULD HAVE SET BIT. 
:XMITROY OID NOT SET IN TCSR (AFTER RESE 
a ERRMRD 42,HRESET .DIDNOT 
104042 ERROR 
aa ANOTHER RESET 
000005 RESET 


ENDIF 
sALLOW LOOPING ON ERROR 
CKLOOP 


ENDTST 








B4 
SEQ 40 
MAINDEC - 11 -OVDVC-C MACY11 SOA(1052) 12-SEP-84 15:41 PAGE 4 
CvOVCC.P11 12-SEP-64 06:55 T10 TEST THAT XMITROY - TCSR 7 - IS SET BY INIT 


§ § SCSHSSSSSSSSOSSSASSSSSSSSSHSSHSHSHSSSSOSSSHSSSHSSSOSSSHKOHHEEEEOEE 
a3 <i. Want MAT at fay . tc? . oe eeee6 





















 eTEST it TEST THAT XMIT RADY - 
3@ WHEN TOUF IS LOADED Mim * CHARACTER 
0 Me THAT IT SETS WITHIN A REASONABLE OF TIME. 
inane üücm⸗ 
3 
MOV 01, $TIMES 33:00 1 ITERATION 
MOV #11, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
IFB CONSOLE EQ @TRUE OR OAPTENV SETIN SENV THEN 
CONSOLE , @TRUE 
Bea 500418 
BIT OAP TEV , SENV 
BEQ 50042 % 
500415: 
ExIT TEST 
Mov 01, $TIMES 
Br TsTi2 sssEXIT THIS TEST 
ENDIF 
500428: 
LET PASS :* @1 ;INIT COUNT OF TIMES THRU 
MOV @1,PASS 
LOOP : START OF LOOP 
500438: 


s MAX OF 2 TIMES THRU 
LET ERRORFLAG := @CLR 





















MOV 
nay LET EXITFLAG := @CLR 
WITH ONE CHARACTER 
DAT WAIT 
SINCE UART DOUBLE BUFFERS ITS INPUT) 
sSEND A CHARACTER 
LET OTOUF :B- 60 

CLRB 

sWAIT A MAXIMUM 

;O0F SOO MSEC FOR 

* RDY TO SET IN TCSR 
nov CALL TIMER IN <@500, OXMITRDY. TCSR, OSET> 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 

; TIMER RETURNS AN ERROR IF BIT DIO 
SNOT MEET CONDITION WITHIN TIME LIMIT 
IF .ERROR THEN 

Bcc 500454 





sXMIT RDY OID _ SET IN TCSR 
ERRHRO 


OvOvc -C 
CvOvCc .P11 12-SEP-64 06:55 





003664 104066 


105077 175376 
000280 


177777 


177777 





177777 


173362 


000114 


177777 


000001 


§$00458: 


500508: 
$0047: 


C4 


MACY11 SOAC 1052) mo -SEP-64 15:41 PAGE 42 


— — — — — — 


SEQ 41 


TEST THAT XMIT RDY - TCSR 7 - CLEARS 


ENDIF 


LOAD TOUF WITH A SECOND 


| CHECK IMMEDIATELY 
| AMD THEN WAIT FOR IT TO SET 





ERROR 66 
CLRB eTeur 
J 
BIT @XMITRDY , @TCSR 
GEO & 
MOV @SET , ERRORF LAG 
BR 50047 
Ov 
mov 
MOV 
MOV 
MOV 
JSR 
Ov 
Bcc 
ERROR 






2 3 ne me 








@SET ,EXITFLAG 





CHARACTER 
THAT XMITROY IS CLEAR 





sSEND SECOND CHARACTER 
LET STOUF :B- 60 


| GEE oT SEY Gane we C 
EARED UPON 
3 RECEIPT OF A TER 
IF @XMITROY SETIN STCSR THEN 





s XMITRDY OID NOT CLEAR IN TCSR 
LET ERRORFLAG :© @SET 


s OEFER ERROR TYPEOUT 


ELSE 
sWAIT A 
30F SOO MSEC FOR 
sMMIT RDY TO SET 


IN TCSR 
CALL TIMER IN «0500, OXMITRDY . TCSR, @SET> 


IF .ERROR THEN 
sXMIT ROY OID —* SET IN TCSP 
ERRERD 


ENDIF 
ENDIF , OF DEFERED ERROR CALL 
IF ERRORFLAG EQ @SET THEN 


IF PASS GT @1 THEN 


5 CALL ERROR IF 2ND TRY 
ERRHRD 67, ,.DIDNOT 


LET EXITFLAG :* @SET 





OvOvCc -C 
12-SEP-64 06:55 





D4 


MACY11 SOAC 1052) ae -64 15:41 


177777 000020 


000014 177777 





ERRORFLAG : 
EXITFLAG: 0 


@SET ,EXITFLAG 
EXITFLAG, @SET 
50044 4 
50043% 


TsTil2 


PAGE 43 
TEST THAT XMIT RDY - TCSR 7 - CLEARS 


ENDIF 


ELSE 


LET EXITFLAG :* @SET 


ENDIF 


s3sEXIT Futs 


ENDTST 


EXITFLAG EQ @SET 


V AROUND FLAG WORDS 


SEQ 42 


— — — — 





| E4 


MAINDEC -11-OVvDVC-C MACY11 eee” 12-SEP-84 15:41 PAGE 44 
CvOvet PL 12-SEP-64 06:55 Til TEST THAT XMIT RDY - TCSR 7 - CLEARS 


IEXXXXYVEYVXYEIEEREEEEEEEEERII 

Le eee ———— ——— — 

seTEST 12 TEST THAT OUTPUTTING A CHAR FROM Lan (WITH MAINT SET) 

‘6 RESULTS IN RCVROONE SETTING WITHIN A REASONABLE AMOUNT OF TIME 
AND THAT RESET CLEARS THE BIT. 


; P| I — BL. oe An D. ..+b 


SEQ 45 











TSTi2: 
01, ¢TIMES 3300 1 ITERATION 
#12, $8TESTN 33SET TEST NUMBER IN APT MAIL BOX 
IF @MAINTJUPP NOTSETIN SUSWR ORB CONSOLE EQ eTRU 
@MAINT JUMP , SUSUR 
500544 
CONSOLE , @TRUE 
50055 
50054: 
EXIT TEST 
@1,$8TIMES 
TsTi3 s3sEXIT THIS TEST 
ENDIF 
50055%: 


SET THE MAINTENANCE BIT 
LET STCSR := STCSR SET.BY @MAINT 





175156 BIS @MAINT .BTCSR 






BGNSUB 
174774 MOV 064% , SLPERR 
s SEND A CHARACTER AND LET IT WRAP AROUND 
LET STBUF :B= #0 
CLRB STBUF 


s WAIT A MAXIMUM OF SO MSEC 
s FOR RCVR DONE TO SET IN 


CALL TIMER IN <@500, ORCVRDONE .RCSR, @SET> 








177777 
175126 
000200 


000500 
004152 





sDION'T SET IN TIME 
IF .ERROR THEN 


Bcc 50056 $ 
: RCVRDONE DID NOT SET IN RCSR 
; CAN NOT LEAVE WITH MAINT SET 
LET STCSR := BTCSR CLR.BY OMAINT 
000004 175104 BIC @MAINT ,@TCSR 
ERRHRD 71, .0IDNOT 
ERROR 71 


ENDIF 
50056$: 


—— 11-OvOvC-C 
CvOvcc .P11 12-SEP-64 06:55 


004162 

004162 

004162 012767 004170 174720 MOV 
RESET 
BIT 
BEG 
ERROR 


50057: 








F4 


SEQ 44 


MACY11 seemed” 12-SEP-64 15:41 PAGE 45 
Tie TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 









ENDSUBS 
BGNSUB 
65% , SLPERR 
s NOW T It IS SET SEE IF IT CAN BE RESET 
s THIS ALSO WILL CLEAR THE MAINT. BIT 
BRESET 
IF @RCVROONE SETIN GRCSR THEN 
@RCVRDONE . BRCSR 
50057 
s RCVRDONME DID NOT RESET IN RCSA. 
* ERRHRD 72. .DIDNOT 


ENDIF 


ENDTST 


— — — — 


| 
| 


— — * — — — 





64 


SEQ 45 


MAINDEC -11-OVOVC -C MACY11 SOAC105S2) 12-SEP-64 15:41 PAGE 46 
ii 06:55 Tl2 TEST 


CvOvCcc .P11 12-SEP-64 


052777 000004 
004260 

1915 004260 012767 004266 
004266 





105077 174776 





174744 
174756 


174770 
000001 


174710 


175004 
174622 


174734 


T THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 


§ § SSSHSSSSSKSSSSSSSSSSSOSSSSSSSSSSSSSSSHHSSHSSSSSSSSSSSSSSHSESEEES 
£8 SSSSOSSHSSSSSSSSSSHSSSSSSSHSOHSSSSHHSSSSHSSESSHSSSSEHSESSSSEEED 


s@TEST 15 


TSTi3: 





TEST THAT Y READING RBUF 
IIIXXXXXXXXXXXEXXVEAVEEXLREXEEROEDRE 
MOV #10, STIMES 3300 10 ITERATIONS 
MOV #13, $TESTN 1sSET TEST NUMBER IN APT MAIL BOX 
IF @MAINT AUP NOTSETIN $USWR ORB CUNSOLE EQ @TRU 

BIT GMAINT JUMP , SUSUR 
BEG 350060 $ 
CPB CONSOLE , @TRUE 

500618 

EXIT TEST 
#1, $TIMES 
TST14 





500614: 





BIS 


sssEXIT THIS TEST 
ENDIF 


eIT 
LET BTCSR © BTCER SET-BY OMAINT 


@MAINT ,STCSR 
BGNSLB 


064% , SLPERR 
s OUTPUT A CHARACTER WITH MAINTENANCE 
: SET, AND WAIT FOR XMITRDY TO SET. 








s OUTPUT A CHARACTER 
LET STBUF :B= 60 


s WAIT MAXIMUM OF SOO MSEC 
s FOR RCVROONE TO SET IN 


: RCSR 
CALL TIMER IN <@500, @RCVRDONE .RCSR, @SET> 





LET STCSR := STCSR CLR.BY OMAINT 
s OID IT BECAME READY? 
IF .ERROR THEN 





sRCVRDONE DID NOT SET IN RCSR 
ERRHRD 73.. OIONOT 


ENDIF 
ENDSUB 


s NOW THAT IT IS SET LETS SEE IF READING THE 
: BUFFER CLEARS RCVRDONE. 








— H4 





SEQ 46 
MAINDEC - 11 -OVDVC - MACY11 SOAC(10S2) 12-SEP-64 15:41 PAGE 47 
Cvovee Pil 13-SEP-66 06:55 113 TEST THAT RCVRDONE IS CLEARED BY READING RBUF 
sREAD BUFFER 
LET RO :B> GRBUF 
117700 174722 MOVB GRBUF .RO 
IF @RCVRDONE SETIN GRCSR THEN 
032777 000200 174712 BIT @RCVRDONE . MCSR 
001401 BEG 500638 
RCVRDONE DID NOT CLEAR IN RCSR 
ERRERD 74, .DIONOT 


104074 ERROR 74 


50063%: 
ENDTST 


ENDIF 





MAINDEC -11-OVvOVC -C 
CvOvCC ..P11 





10 
004410 
004410 
0044 16 


0044 76 
004470 
04474 
O44 74 
004476 
004476 
404476 
004500 


12-SEP-64 


MACY11 SOAC 1052) m -SEP-64 15:41 


174610 


177777 





174566 


174522 


174616 


174572 


14 


PAGE 46 
TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


§ FE SSHSSSHSSSSSHSSHSSSOHSHSSSSSSSSSESOSSSSSHSSSSSSSSHEHHHSHEOHEEOED 
ELESSEHEHLSOREOSHESEHEHEESHEOFEHEHOBEAESEOEHEOEESHHOEEH EMERY MH HHOS HO 












s*@TEST 14 TEST THAT RCVRACT - RCSR 11 - SETS 
32 WHEN A START BIT IS RECEIVED AND 
;¢@ CLEARS WHEN RCVRDONE - RCSR 7 - SETS 
EXXEXEEXEEXXXXEXXXXXXEEEIEE 
TSTi4: SCOPE 
MOV #10, TIMES 3300 10 ITERATIONS 
MOV #14, $TESTN 33SET TEST NUMBER IN APT MAIL 
IFB CONSOLE 
cMPB CONSOLE , @TRUE 
GEG SOE 6 
BIT GMAINT UUFP , SUSUR 
Re $0065 
500644: 
EXIT TEST 
MOV #1, ¢TIMES 
BR TST15 s3sEXIT THIS TEST 
ENDIF 
50065: 
IF @APTENV SETIN SENV THEN 
BIT OAPTENV , SENV 
BEG 50066 ¢ 
EXIT TEST 
MOV #1, ¢$TIMES 
BR TSTi5 333EXIT THIS TEST 
ENDIF 
500666 : 
LET STCSR := STCSR SET.BY @MAINT 
BIS @MAINT .@TCSR 
LET RO := @CLR 
MOV @CLR RO 
LET R1 := 60 
CIR Ri 
3LOAD A CHARACTER INTO TBUF 
sWAIT FOR RCVRACT TO SET 
:SEND A CHARACTER 
LET STBUF :B= 40 
CLRB eTeUF 
REPEAT 
50067%: 
IF @RCVRACT SETIN GRCSR THEN 
BIT @RCVRACT , BRCSR 
BEQ 50070$% 
LET RO := @SET 
MOV @SET RO 
ELSE 
50071% 
500708: 
LET R1 :* R1 + @1 
INC Ri 


ENDIF 





BOXx 
EG @TRUE OR OMAINT JUMP NOTSETIN $US 


MAINDEC -11-OvDVC-C 

-Pil 12-SEP-64 
004514 020167 

004 101410 

042777 

104075 

012767 

000455 


— eee ee eeeapapagaRoaSE SESE see sceceuEEEEERSRRRgeReNseS 
Ne oes 2 2 = SCataUburbe hes ~ Soa ~ 








MACY1i1 
06:55 


177777 
000160 


000152 





174534 


174420 


174510 


174500 


174470 


174464 


a 


50071$: 


50072$: 


50073$: 


50074%: 


= 


SOAC 1052 ) Set 15:41 PAGE 4 






SEQ 46 
TEST THAT RCVRACT - > RCSA il - SETS 
UNTIL RO EQ @SET OR R1 HI MAX 
chp RC, @SET 
BEG 50072% 
CMP Ri, MAX 
BLOS 7% 
IF Ri HI MAX THEN 
CMP Ri, MAX 
BLOS 50073% 
sIT NEVER SET 
sRCVRACT DID NOT SET IN RCSR. 
’ NOT LEAVE WITH MAINT SET 
LET STCSR := STCSR CLR.BY @MAINT 
BIC @MAINT , OTCSR 
ERRHRD 75.. DIONOT 
ERROR 75 
EXIT TEST 
MOV #1, ¢TIMES 
BR TST1i5 33sEXIT THIS TEST 
ENDIF 
:CHECK FOR TIMING OF RCVRACT. CLEARING 
3VS RCVRDONE SETTING 
WHILE @RCVRACT SETIN SRCSR DO 
BIT @ACVRACT . RCSR 
BEG 50075% 
art IF @RCVRDONE SETIN @RCSR THEN 
BER 50076% 
IF @RCVRACT SETIN @RCSR THEN 
BIT @RCVRACT . GRCSR 
BEQ 50077% 
sRCVRDONE AND RCVRACT 
;B80TH SET 
: CAN NOT LEAVE WITH MAINT SET 
LET STCSR := STCSR CLR.BY @MAINT 
BIC @MAINT , BTCSR 
ERRHRD 76, DONEACT 
ERROR 76 
3NO USE CONTINUING 
EXIT TST 
MOV #1, ¢TIMES 
BR i5 333€XIT THIS TEST 
ENDIF 
ENDIF 
ENDDO 
BR 500744 





| CvOvCC.P11 


2073 
2074 
2075 
2076 
2077 
2076 
2079 





Sete 33332 
net eet hat 
— EPET EERE TEE EEE Ee 





. 


00461 


004614 
004614 
004 422 


004670 
004670 


004670 
004670 
004672 


7 


ae 


MAINDEC -11-OVDVC -C 


032777 
001010 


042777 
104077 


012767 
000414 


017700 


032777 
001404 


042777 
104100 


000401 
070000 


MACY11 30AC 1052) 
12-SEP-64 06:55 


174412 


174436 


174432 


174316 


174402 


174376 





K4 


12-SEP-64 15:41 PAGE 50 
TEST THAT RCVRACT - RCSR 11 - SETS 


T1i4 
50075$: 


50100$: 


501018: 


BIT 
BNE 


BIC 


@RCVRDONE , GRCSR 
50100% 


@MAINT ,STCSR 
77 

#1, $TIMES 
TSTiS 


TsT1iS 


ENDTST 


LET 


sRCVRACT = O NOW. 
IF @RCVRDONE NOTSETIN @RCSR THEN 


SEQ 49 


sRCVROONE OID NOT SET IN RCSR 


s CAN NOT LEAVE WITH 
STCSR := SBTCSR CLR.BY MAINT 


ERRHRD 77, ,.DICNOT 
EXIT TEST 


33sEXIT THIS TEST 
ENDIF 


sTEST THAT READING THE RECEIVER 
BUFFER CLEARS RCVRDOONE 


ERRHRD 100, ,.OIDNOT 
ENDIF 





EXIT 
323EXIT THIS TEST 


MAINT SET 





STCSR := BTCSR CLR.BY MAINT 





L4 


MAINDEC -11-OVOvC-C MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 51 
cvovee Pil 12-SEP-84 06:55 T1i4 TEST THAT RCVRACT - RCSR 11 - SETS 


SEQ SO 


§ § SSSSSHSSSSSSSSSSSSHSSHSSSESSHSSHSHHSHKSSSSSHSSHSSESSOSSHESSESHEDOSHSEE 
bf SESSODRSEETCESSEEEESAEOSSESESSESHESSSEHSOSKSHASHHSSHAAHREHSEL BS EHEEE HOY 











;@TEST 15 TEST THE OVERRUN BIT - RBUF 14 
vclo ſ ⸗⸗⸗ 
2 
000010 174254 MOV #10, $TIMES 7:00 10 ITERATIONS 
000015 174266 MOV #15, $TESTN 3:;SET TEST NUMBER IN APT MAIL BOX 
IF @ERRBITS NOTSETIN S$USWR ORB CONSOLE EQ @TRUE 
100000 174300 GERRBITS , SUSUR 
BEQ $0102% 
004177 000001 CMPB CONSOLE .@ 
BRE 501033 
50102$ : 
EXIT TEST 
000001 174220 Mov #1, $TIMES 
Be TST1i6 33sEXIT THIS TEST 
ENDIF 
501038: 
IF @MAINTJUPP NOTSETIN SUSUR THEN 
040000 174250 BIT GMAINT UUPP , SUSER 
Bt 501043 
EXIT TEST 
000001 174200 MOV @1,¢TIMES 
BR TSTi6 333EXIT THIS TEST 
ENDIF 
501048: 
LET S1CSR := STCSR SET.BY @MAINT 
000004 174274 ers GMAINT . STCSR 








2150 004770 
2151 004770 012767 004776 174112 MOV 
2152 
sOUTPUT 1 CHARACTER 
LET STBUF :B= #0 
174266 CLIMB STeur 
60 AWAY FOR 200 M SEC 
WAITMS 200. 
MOV RS, -(SP) 
000310 MOV @200. , -C( RS) 
003562 JSR PC WAIT 
MOV CSP )-,RS 
sOUTPUT 2ND CHARACTER 
LET STBUF :Be #0 
174246 CLRB eTBUF 
sLET OVERRUN HAPPEN 
WAITMS 200. 
MOV RS. -(SP) 








MAINDEC -11-OVOvC-C 
CvOvCcc .P11 





012745 
004767 
012605 


017704 
032704 
001010 


042777 
104101 


012767 
000474 


012767 


032704 
001010 


042777 
104102 


012767 
000456 


012767 


032777 


MACY11 


12-SEP-64 06:55 


000310 
003542 


174220 


005076 
100000 


005132 


174206 


174072 


174012 


174152 


174036 


173756 


174122 


50105: 


501068: 


3OA( 1052) 12-SEP-64 15:41 
TiS TEST 


MOV 
JSR 
MOV 


BIT 

































M4 
SEQ 5i 
PAGE S2 
THE OVERRUN BIT - RBUF 14 
@200.. -CRS) 
PC WAIT 
(SP 
sREAD BUFFER AND ERROR BITS 
LET R464 :* GRBUF 
GRBUF RA 
IT OION’T SET 
IF @ORERR NOTSETIN R4 THEN 
SORERR .R4 
50105% 
sORERR DID NOT SET IN RBUF 
: CAN NOT LEAVE WITH MAINT SET 
LET STCSR := STCSR CLR.BGY MINT 
OMAINT , STCSR 
ERRARD 101, .DIDNOT 
101 
3™O USE COMPOUNDING ERRORS 
EXIT TST 
#1, $TIMES 
TST1i6 s3sEXIT THIS TEST 
ENDIF 
ENDSUR 
sNOW SEE IF ERROR BIT SET WITH OVERRUN ERROR: 
6658 , SLPERR 
IF @ERROR NOTSETIN R4 THEN 
GE RRO AS 
50106% 
;ERROR OID NOT SET IN RBUF 
3 CAN NOT LEAVE WITH MAINT SET 
LET STCSR := STCSR CLR.BY OMAINT 
@MAINT .BTCSR 
ERRMRD 102, .DIDNOT 
102 
3; -WHEN ORERR SET 
;GET OUT NOW. 
EXIT TST 
01, ¢TIMES 
TST16 333EXIT THIS TEST 
ENDIF 
ENDSUB 
BGNSUB 
0664 


» SLPERR 
sCHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 


IF @ORERR NOTSETIN GRBUF THEN 
@ORERR , SRBUF 


MAINDEC -11-OvDvC-C 
CvOvcc .Pil 12-SEP-64 06:55 


005140 001010 


042777 174114 


104103 


012767 174000 


000437 





012767 005170 173720 


174074 


174064 


174036 


173722 





SSMS SUE SEO RD EO SOD OMONDNOM Goo RERe eS 


MACY11 eee, 


50107$: 





NZ 


SEG S2 


sREADING RBUF CLEARED ORERR. 
: CAN NOT LEAVE WITH MAINT SET 
LET STCSR := STCSR CLR.BY OMAINT 


ERRHRD 103, ITCLRED 


sSKIP REST OF TEST 
EXIT TEST 


33sEXIT THIS TEST 
ENDIF 


sNWOW SEE IF THEY CLEAR WHEN ANCTHER CHAR. IS RECEIVED 





3SEND A Saou meee. 
LET @TBUF :B= €0 


sLET IT CIRCULATE 
TRS 200. 


IF @ORERR SETIN GRBUF THEN 





sORERR DID NOT CLEAR IN RBUF 
s CAN NOT LEAVE WITH MAINT SET 
LET STCSR := STCSR CLR.BY OMAINT 


ERRHRD 104, .OIDNOT 








s-AFTER RECEIVING ANOTHER CHAR 
sSKIP AROUND REST 
EXIT TST 


12-SEP-64 15:41 PAGE 55 
TiS TEST THE OVERRUN BIT - RBUF 14 
BNE 50107% 
BIC @MAINT , STCSR 
ERROR 105 
MOV 01, $TIMES 
BR TST16 
MOV 067% , SLPERR 
CLRB STBUF 
mov RS, -C( SP) 
MOV @200. ,-CRS) 
JSR PC WAIT 
MOV CSP +. RS 
BIT GORERR , GRBUF 
BEQ 50110% 
BIC @MAINT .BTCSR 
ERROR 104 
MOV #1, ¢TIMES 
iB TST16 


501108: 


333EXIT THIS TEST 
ENDIF 





= BS 


OvOvC -c MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 34 
12-SEP-64 06:55 113 TEST THE OVERRUN BIT - RBUF 14 


SEQ 55 








IF @ERROR SETIN GRBOUF THEN 









032777 100000 174014 211 EM. GRBUF 
001404 BEG 501118 
sERROR DID NOT CLEAR IN RBUF 
Let ' “STCSR := GTCSR CLA.BY @MAINT 
7° ; 
042777 000004 174006 eric MAINT , OTCSR 
ERRHRD 105, .OIONOT 
104105 ERROR 105 


ENDIF 
501118: 


~ 


ENDTST 





— TLL LE EERE 


| Cvovec P11 


2291 


PESESG EGER EaeCRURMHURENCHCESECC CCE CUMSRUEBREE Sa Sa ToN 


Baht Ee HEE HE erence ane 


: 


: 
~ 
Ape 


MAINDEC - 11 -OVDVC -C 
12 - SEP -64 








MACY11 SOAC 1052) 12-SEP-64 15:41 
33 113 Test 


173670 
173702 


173714 
173704 





173660 


173614 





CS 


PAGE 55 
THE OVERRUN BIT - RBUF 14 


XXXXXEXEXXEEXEXXVEEEEEEEEEE 

XEXXXYXVXXXEXXEEIEXIXVXXEREEEEEER 

seTEST 16 . RATE TEST 

1 AVAILABLE 

» A COMPARISON WILL BE MADE TO SEE 
IF NEW TIME IS LESS THAN PREVIOUS. 


| eeacesensscacenccnsccsensonsossonssnasenscssenscnscnsensensess 


ST16: 
MOV #10, STIMES 3300 10 ITERATIONS 
MOV 016, ¢TESTN 33SET T NUMBER IN APT MAIL BOX 












IF @PGR NOTSETIN SUSUR OR GMAINT.APP NOTSEIIN bu 





SIT 
BIT 
ee 
S$O0112$8: 
ExIT TEST 
MOV 01, ¢6TIMES 
Ha 151717 sss€XIT THIS TEST 
ENDIF 
$0115: 
IFB @APTENV SETIN SENV THEN 
sITe 
$0114 
EXIT TST 
MOV 01, STIMES 
Be rSt17 s33sEXIT THES TEST 
ENDIF 
$0114: 
LET ERRCHK := €0 
CLR E 
LET GO 01 
MOV @-1,.0@.0 
LET G@De2 := @-1 
MOV @-1,0&0-¢2 


LET BTCSR :* BTCSR SET.BY OMAINT 
sEACH BAUD RATE 
INCR RS FROM eo TO 015. BY @1 


501168: 
$0115: 
LET RO :° GRBUF 


sCHANGE BAUDE RATE 
LET BTCSRHI :B- RATESC(RS) 


: CLEAR ERROR WORD 








DS 


SEQ 55 














MAINDEC - 11 -DVDVC -C MACY11 SOAC 1052) 2-567 88 15:41 
CVOVCC.P11 12-SEP-84 06:55 PROGRAMMABLE BAUD RATE TEST 

2347 005414 116377 003624 173644 MOVB RATES(RS), @TCSRHI 

$349 005422 Let BIT = 60 

3:2 
SSO 005422 005002 CLR eIT 
,OUTPUT THE CHARACTER 

2352 005424 LET BTBUF :* 60 

2353 005424 005077 173640 CLR eTeUF 

234 sINIT IM.IZE COUNTER 
2355 005430 LET NEW :© 

2336 005430 005067 000210 CLR re 

2357 0054s LET NEWe2 := 60 

2338 005434 CLR NEW+2 

2359 005440 WHILE BIT EQ #0 do 

2360 005440 501208: 

2361 005440 TST BIT 

2362 205442 001014 se” $01218 

2%35 005444 IF @RCVRDONE SETIN GRCSR THEN 
2364 005444 032777 000200 173606 BIT ORCVROONE . BRCSR 

2365 005452 001403 BEQ 501228 

2366 sO0NE - ITS READY 

2367 005454 LET BIT :=* #1 

2368 005454 012702 000001 MOV 01,817 

2369 005460 ELSE 

2370 005460 000804 BF 501238 

2371 005462 $0122¢ : 

2372 s OTHERWISE - INCREMENT TIME 
2373 005462 LET NEW :* NEW + @1 
2374 005462 005267 000156 Tet ate 

2375 005466 3 LET NEWe2 :© NEWe2 + CARRY 
2376 005466 005567 000154 ADC NEWs2 

2377 005472 ENDIF 

2378 005472 501238: 

2379 sSIGNALS DONE 

2380 005472 

2381 005472 BR $01208 

2382 005474 501218: 

23864 005474 IF NEWe2 LO OLD+2 THEN 
2385 005474 000146 000150 cep NEW+2,0LD-2 

2386 005502 BHIS  50124% 

2387 » OK 

23868 005504 ELSE 

2389 005504 000414 ea 501258 

2390 005506 501248; 

2391 : NEWe2 >= OLDe2 

2392 005506 IF NEWe2 EQ OLD+2 AND NEW LO OLD THEN 
2393 005506 000134 000136 coy 

2394 005514 BME 

2395 005516 000122 000124 che 

2396 005524 BHT 

2397 : 0K 

2396 005526 ELSE 

2399 005526 000403 $0127 

2400 005530 501266: 

2401 ;NEW+2 > OLD+2 OR 
2402 1(NEWe2 = OLD+2 AND 





MAINDEC -11-OVOVC-C 
Cvovcc. 12-SEP-64 06:55 


2405 
2404 
2405 


2406 
2407 





2409 
2410 
2411 
2412 
2415 
2414 
2415 
2416 
2417 





24168 
2420 
2421 
2422 
2425 
2424 
2425 
2426 


~ 





Pll 








MACY11 


000076 


000017 


177400 


eS 


002434 


000104 
000100 


















ES 











12-SEP-04 15:41, PAGE 57 0 36 
PROGRAMMABLE BAUD RATE TEST 
| NEW >» OLD) 
Let enact? walla. Sev EARON 
MOV ss @BIT2, ERRCHK ; ' INDICATOR 
ENDIF 
501278: 
ENDIF 
“01258: 
UPDATE OLD TIME 
LET :2 NEW 
NEW. OLD 
LET OLD+2 :° NEWe2 
NEWe2 .OLD-2 
ENDINC ;BAUD RATE 
501168 
501178: 
LET RS :B= SUSMR+1 AND 017 ; PUT BAUD BACK 
LET RS := RS CLR.BY 0177400 
—E— LET @TCSRHI :B= RATES(R3) 
. LIME HE WANTED IT 
RATES(RS), BTCSRHI ;' 
; CAN NOT LEAVE WITH MAINT SET 
LET  STCSR := @TCSR CLR.BY @MAINT 
IF @BIT2 SETIN ERRCHK THEN 





3 REPORT DEFERED ERROR 
126 


ENDIF 


EXIT 
333EXIT THIS TE 


— 


VALUE INDICA COLUMN ‘OFFSET 
TABLE’ CAN GE ey: INTO BITS<11:6> 

OF LOCATION ‘SUSWR’ TO CAUSE THE CORROSPONDING 
3 selecTeD IN Tre OLV11-F UPON 


3SKIP TABLE 
ST 





OFFSET INTO TABLE 





4 
010 8 50 0 
030 i 70 1 
050 ' 110 2 
070 i 135 3 
110 ; 150 4 
130 i 5 


ra 


SEG 57 
-ll- -C MACY11 3SOA(1052) 12-SEP-64 15:41 PAGE S6 
Cvevee Pll OOS SEP -84 06:55 Ti6 PROGRAMMABLE BAUD RATE TEST 
005632 150 150 ’ 600 6 
8 005635 170 170 ' 1200 7 
2461 005634 210 210 ' 1800 10 
005635 230 230 ’ 2000 11 
005636 250 250 ’ 2400 i2 
005640 ea W8 
330 7200 is 
350 ’ 2600 16 
370 19200 17 





MAINDEC -11-OVOVC-C 
CvOvcc .P11 


— ———— 


— —— 


000004 
012767 
012767 


032767 
001404 


012767 
000534 






MACY11 SOAC1052) 12-SEP-64 15:41 
12-SEP-64 06:55 T16 PROGRAMMABLE 


000010 
000017 


000001 


000001 


002746 


173274 
173306 


173136 





GS 


PAGE 59 
BAUD RATE TEST 


£ § SSSSSSSSSSSSSSSSSSSSSSASSSSSSSSSSSSSSSSSSSSSHSSSHSSESSEHEEEEEOOD 
§ § SOHOSSSSSSSSSSOHSEL SSESSSSSSSSSSOHSSSSHSSSSSASSSSSHSSSHSAHEEHEHES 














ae VECTOR TO POINT TO TRANS.SRV AT PRI 


TTER READY IS SET 


TRANSMIT 
#500, OXMITROY , TCSR, @SET> 


s@TEST 17 TER INTERRUPT LOGIC TEST 
Je LOGICALLLY THIS IS 4 SEPARATE TEST 
10 TRANSMITTER 
28 
3¢ 
14 
ee 
STi?: 
MOV #10, $TIMES 33:00 10 ITERATIONS 
MOV #17, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
IF @APTENV SETIN SENV THEN 
BIT OAPTENV , SENV 
ata $0131 
EXIT TEST 
MOV #1, ¢$TIMES 
— TST20 33sEXIT THIS TEST 
ENDIF 
5013518: 
sCLEAR ‘INTERRUPT OCCURED’ FLAG 
LET INTFLAG := @0 
CLR INTFLAG 
3GET VECTOR ADDRESS 
LET RS := OLVEC 
MOV OLVEC RS 
sFOR THE TRANSMITTER 
LET RS := RS + O46 
B&D) 04 RS 
SETVEC RS, @INTSRV, @PR7 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 





;CLEAR INTERRUPT 
LET STCSR := 





ENABLE 
STCSR CLR.BY OXMITIE 
















ue 





: 





104107 


MAINDEC -11-OvDvC-C 
CvOvcc .P11 
2532 006002 042777 
2535 
2534 
2535 006010 012746 
2536 006014 012746 
2537 006020 000002 
2538 006022 
2539 
2540 
2541 006022 
2542 006022 052777 
245 
24 
2545 006050 
2546 0060350 01 
2547 006032 012745 
2546 006036 004767 
2549 006042 012605 
2550 
2551 
2552 006044 
2553 006044 
2534 006052 
2535 
2536 006054 
2557 006054 005767 
2538 006060 001002 
2559 
2560 006062 
2561 006062 104106 
2562 006064 
2565 006064 000401 
2564 006066 
2565 
2566 
2567 006066 
2568 006066 
2569 
2570 
2571 
2572 
2573 
2574 
2575 


— Zo S3 


006070 











he pe 
88 


58 
— 


S 





H5 


SEQ 59 


MACY11 seemed ro; 64 15:41 PAGE 60 
TRANSMIT 


12-SEP-64 06:55 


000100 


000100 


000310 
002554 


006076 
002362 
000100 


00000 
006122 


173254 


173234 


173012 


173154 


5013538: 


501346: 
$0152%: 


67%: 


BIC 


gs 


RTI 


TER INTERRUPT LOGIC TEST 





@xXMITIE.@TCSR 
sSET IT 10 0 
@PRO, -( SP) 33PUT NEW PS ON STACK 
665%, -(SP) 33PUT NEW PC ON ST 
11 NEW PC AND PS 
sNOW SET I.E. BIT 
LET BTCSR := BTCSR SET. BY OxMITIE 
OXMITIE ,@TCSR 
sLET INTERRUPT HAVE TIME TO OCCUR 
WAITMS 200 
RS, -CSP) 
@200. ,-CRS) 
PC WAIT 
¢ de RS 
s0ID EXACTLY 1 INTERRUPT OCCUR 
IF INTFLAG NE @1 THEN 
INTFLAG, #1 
$0132% 
sNO - WAS IT O OR MORE THAN ONCE 
IF INTFLAG EQ @0 THEN 
5013358 
3 TRANSMITTER DID NOT INTERRUPT IN TIME 
ERRHRD 106. .DIDNOT 
106 
50154 $ 
3 TWICE 
s TRANSMITTER INTERRUPTED TWICE 
ERRHRD 107, , TWICE 
107 
ENDIF 
ENDIF 





ENDSUBS 
s INTERRUPT WITHOUT INTERRUPT ENABLE SET 
BGNSUB 








066%, $LPERR 
CLEAR ‘INTERRUPT OCCURED’ FLAG 
LET INTFLAG := 00 
INTFLAG 
;CLEAR INTERRUPT ENABLE 
LET BTCSR :* BTCSR CLR.BY OXMITIE 
@XMITIE,BTCSR 
\NO INTERRUPTS SHOULD OCCUR. 
@PRO, -(SP) 1 :PUT NEW PS ON STACK 
067%, -(SP) tsPUT NEW PC ON STACK 
y3P0P NEW PC AND PS 


IS 


MAINDEC - 11 -OVDVC-C MACY11 SOA(1052)_ 12-SEP-04 15:41, PAGE 6 
CVOVCC.P11 12-SEP-64 06:55 TRANSMITTER INTERRUPT LOGIC TEST 


SEQ 60 






sDARE IT TO HAPPEN 
TMS 2 













5389 WAI 

2590 MOV Pe 4 

2591 “OV #2, -C(R3) 

2592 JSR PC WAIT 

2593 MOV (SP)e, 

2534 IF INTFLAG NE @0 THEN 
2595 TST 

25% BEQ 50135¢ 

3597 INTERRUPT OCCURED WITH I E CLEARED 
2598 ERRHED 110, NOTENAB 
99 ERROR 110 

2600 ENDIF 

2601 5013S$: 

2602 GBRESET 

2603 RESET 

2604 

2605 sRESTORE VECTOR AREA 
2606 LET R4 :© GOLVEC 

2607 Noy 

2006 CLAVEC R4 

2609 MOV 3sPUSH Ri ON STACK 

2610 MOV 33PUSH R2 ON STACK 

2611 MOV 

2612 MOV 

2613 ADO 

2614 MOV 

2615 CLR 

PEIG MOV :3POP STACK INTO R2 

2617 MOV 33PO0P STACK INTG Ri 

338 ENDTST 


MAINDEC -11-OvOVC-C 
CvOvCC .P11 


PEREMEREREN LLL LIiaid dasa aist adit tititdad ta te 


006204 
006220 
0062 20 
006226 
006250 
006236 
006240 
006.240 
006244 
006244 
006244 
006244 
006246 
006252 
006256 
006262 
006264 
006264 
006272 
006272 


006312 
006316 


105077 


010546 
012745 
016745 


MACY11 SOAC1052 oat 


12-SEP-84 06:55 








172740 


177777 
172716 


172746 
172760 


172772 
000001 


172616 


172760 


172746 


J5 


12-SEP-64 15:41 PAGE 62 
TRANSMITTER INTERRUPT LOGIC TEST 


SEQ 61 





£ § SSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSOSSSSSSSSSESHESSSSEHEEEEEES 
§ FE SSSSSSSSSSSSSSSSSHSSSHNS U 






















s@TEST 20 T LOGIC TEST 
34 THIS TEST COVERS ALL OF THE RECEIVER 
10 C IN 
3% ° 
ae ca si taaada aaa cee cman 
ST20: 
#10, $TIMES 33:00 10 ITERATIONS 
020, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
IF @MAINT APP NOTSETIN $USWR ORB CONSOLE EQ eTRYU 
MAINT UUPP , SUSUR 
501363 
50137% 
501363: 
TST2l $ EXIT TEST 
ENDIF 
501378: 
INTERRUPT OCCURED FLAG 
* — — INTER . VECTOR 
SETVEC OL VEC. @INTSRV, PR 
MOV 
MOV 
MOV 
= 
sPRIORITY O AND MULTIPLE INTERRUPT TEST. -RCVRIE 
BGNSUB 
MOV 
LET INTFLAG := #0 
CLR 
3SET MAINT. BIT 
LET ercse :* STCSR SET.BY @MAINT 
BIS @MAINT ,. BTCSR 
sCLEAR INTERRUPTS 
LET @RCSR := GRCSR CLR.BY ORCVRIE 
BIC @RCVRIE . BRCSR 
co PRIORITY 
J 
MoV » -CSP) PS ON ST 
MOV €65% , -(SP) PC ON STACK 
RTI PC AND 
65%: 
3SEND A CHARACTER 
LET STBUF :B= #0 
CLRS aTeuUF 
;WAIT A MAXIMUM 
3 OF 500 MSEC FOR 
3RCVR DONE TO SET IN RCSR 
CALL TIMER IN <@500, @RCVRDONE .RCSR, OSET> 
MOV R5,-(SP) 
MOV @SET,-CRS) 
MOV SR, -CRS) 





MACY11 30AC 1052 J 
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MAINDEC -11-OVDVC-C 
CvOvcc .P11 
2661 012745 
— — 
2684 012605 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2695 
2694 
2695 
2696 
2697 
2696 
2699 
2700 
2701 
2702 
2703 





042777 


042777 


017704 


000100 


172576 


172640 


172612 


172610 


12-SEP-64 15:41 PAGE 65 
20 RECEIVER 


$933 


I 


BI s sess 


po] 


1 
8 
BNE 


=" 
~4 


501418: 


501428: 
501406: 


BIC 


KS 





INTERRUPT LOGIC TEST 
@RCVRDONE . - CRS) 


#500, -(RS) 
PC, TIMER 


(SF)+,RS 
@RCVRIE , GRCSR 
RS. -(SP) 

#1, -CRS) 

PC WAIT 
CSP)-.RS 


@RCVRIE , ERCSR 


@MAINT , BTCSR 


GOL VEC ,R4 


SEG 62 


sSET INTERRUPT ENABLE 

LET GRCSR := GRCSR SET.BY @RCVRIE 
sLET IT COME IN. 

WAITMS 1 


LET RO := GRBUF ; CLEAR RCVROONE 
s0I0 HE 00 IT RIGHT? 
IF INTFLAG NE @1 THEN 


sNONE OCCURED 
s CAN NOT LEAVE WITH MAINT SET 
LET STCSR :* STCSR CLR.BY SMAINT 


IF INTFLAG EQ @0 THEN 

sRECEIVER DID NOT INTERRUPT IN TIME 
ERRHRD 111, .0IDNOT 

sTWICE OR MORE 

ELSE 





sRECEIVER INTERRUPTED TWICE 
ERRHRD 112, ., TWICE 


ENDIF 
ENDIF 
ENDSUB 


; CLEAR THE 
LET @RCSR := GRCSR CLR.BY @RCVRIE 


sRESET MAINT. GIT. 
LET STCSR := STCSR CLR.BY MAINT 


LET R4 := SBOLVEC 
CLRVEC R4 


ee ee ..... 
LS 

MAINDEC - 11 -DVDVC - MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 64 

cvovet Pil 13-SEP-86 06:55 T20 RECEIVER INTERRUPT LOGIC TEST 


R1,-C(SP) 13PUSH R1 ON STACK 
R2,-(SP) +sPUSH R2 ON STACK 


(SP)+,R2 s3sPOP STACK INTO R2 
CSP)-,R1 ssPOP STACK INTO Ri 
ENDTST 


goceeesse 





SEQ 65 





| es 
| 

ae oe = 11-OvOvC-C MACY11 SOA(1052) 12-SEP-64 15:41 PAGE 
CvOvcc .P11 12-SEP-64 06:55 T20 RECEIVER 


MS 


65 
INTERRUPT LOGIC TEST 


IIXXVIXEIVXYXYXYXXEE 
XXXXXXXXEIENRXXEIREE 
s*TEST 21 TEST ACTUAL DATA TRANSFERED 

NON- INTERRUPT MAINTENANCE BIT SET 


TSsT2i: 
1, $TIMES 3:00 1 ITERATION 
621, ¢TESTN 33SET TEST NUMBER IN APT MAIL BOX 
IF @UINT APP NOTSETIN SUSUR ORB CONSOLE EQ eTRU 


SEQ 64 




























GAIT APP , SUSUR 
$0143% 
, OTRUE 
50144% 
EXIT TEST 

#1, $8TIMES 
TST22 3ssEXIT THIS TEST 

ENDIF 

LET ERRCHK := 60 
ERR CHK 

SET MAINT. BIT 

LET STCSR :© STCSR SET.BY OnAINT 

MAINT . STCSR 


sCHANGE PRIORITY 


+ sPUT NEW PS ON STACK 
3sPUT MEW PC ON STACK 
— NEW PC AND PS 





sGET DATA MASK. 
CAL DATLNG OUT <Ri> 






cREEREEE EEREEE GEE GE GE EERREEEERE 
oo hho 


SUB @1¢2,R5 
JSR ° 
MOV CRS)> Ri 
LET RO := GRBUF ; START CLEAR 
MOV 
;ALL BINARY CHAR. 
INCR R2 FROM €O TO @377 BY #1 
005002 CLR 
000401 BF $0145% 
501468: 
005202 INC R2 
501458: 
020227 000377 cree R2, 0377 
003062 AGT 50147¢% 
3 TRANSMIT CHAR IN R2 
006632 CALL TIMER IN <@500, OXMITROY, TCSR, OSET> 
006632 010546 MOV RS, -C(SP) 
006634 012745 177777 MOV @SET , -( RS) 








-11-OVv0VC- 


MAINDEC 
CvOvcc .Pil 








— 
~ ~O6an~ * ~ ee a AD pe 2 > Xx 





C 


NS 


MACY11 SOAC1052) 12-SEP-84 15:41 
T21 TEST 


12-SEP-64 06:55 


020403 
001410 


042777 
104116 


172420 
000200 


000500 
001440 
000010 


172372 


001300 


172302 


50150$: 


501518: 


PAGE 66 
ACTUAL DATA TRANSFERED 





MOV TCSR, -CRS) 
MOV OXMITROY , -( RS) 
MOV #500, o ) 
JSR PC, TIMER 

MOV CSP )« RS 

Bcc 501508 

6Is @BITS ,ERRCHK 
MOVB 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

Bcc 

BIS 

MOV GRBUF RS 

MOV R2,R4 

Bic R1.R4 

BIC R1,RS 

Chp R4 RS 

BEQ 50152¢ 

BIC @MAINT , BTCSR 
ERROR 116 


SEG 65 


IF .ERROR THEN 
LET ERRCHK := ERRCHK SET.BY #BITS 
ENDIF 


s TRANSMIT IT 
LET STBUF :B= R2 


CALL TIMER IN <@500, ORCVRDONE .RCSR , OSET> 


IF .ERROR THEN 
LET ERRCHK :* ERRCHK SET.BY @BIT4 

ENDIF 

Lev AS + ORB. 

:COMPARE TO SEE IF WE RECEIVED IT ALL 
:CLEAN OFF NON-DATA BITS 


— BOTH TRANSMITTED AND 
LET :* R2 CLR.BY R1 


LET RS := RS CLAR.BY Ri 


sDATA COMPARE ERROR 
3; CAN NOT LEAVE WITH MAINT SET 
LET @TCSR := STCSR CLR.BY @MAINT 
ERRHRD 116,COMP,SBWAS 


EXIT TEST ; ON ERROR 





86 
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SEQ 66 



















2839 012767 900001 172166 MOV 01, STIMES 
2060 000416 BR T§T22 :ps€XIT THIS TEST 
2861 ENDIF 
2062 501528: 
2863 ENDING ; R2 
POA 000712 BR 501468 
6S 501478: 
2066 
38 LET acsᷣ —— 
:° = 
4 % * — IF @BITS SETIN ERRCHK THEN 
2671 eIT @81T3, ERRCHK 
2672 501538 
2673 ERRHRD 130 
2674 130 
2675 ENDIF 
2677 — IF @BIT4 SETIN ERROHK 
4 THEN 
2678 IT @B1T4 , ERRCHK 
2679 : 501548 
ERRHRD 131 
131 
ENDIF 
501546: 
ENDTST 





C6 


MAINDEC - 11 -OVDVC -C MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 66 
——— 12-SEP-64 06:55 T21 TEST ACTUAL DATA TRANSFERED 


| IIEXXXXXXXXEEXXEEEEEEEEEE 


SEQ 67 




























PRED 1 I SSOOSSSSSSSSSSSSSOSSSSSSSSSSSHSSSSSSSSHSSSSSHSSHSSSHHSESHHSCHSHHOSSS 
PERO seTEST 22 TEST DATA THROUGH WRAP 

2691 IXXXXEXEXYEXYYEIEEEEEEVVEEEV 

—R TST22: SCOPE 

2695 172120 Ov 01,8TIPES 33:00 1 ITERATION 

Pepe 172132 MOV @22 . $TESTN 33SET TEST MUMBER IN APT MAIL BOX 
Ors, IF G@URAP NOTSETIN SUSUR OR OCONSPD NOTSETIN suUSH 
eB 172144 gIT UREP , 

2697 BEG $0155¢ 

2696 172134 SIT ° 

Vs See 501568 

2900 501558: 

2901 sCAN'T TEST WITHOUT A wRaP 
pyoe EXIT TST 

2303 172064 OV 61,8TIMES 

PRS ea TST23 sss€XIT THIS TEST 

2905 ENDIF 

2906 501565: 

2907 

29068 

Fate] 172160 BICc MAINT , BTCSR 

2910 f 

2911 t 

2912 8 

2915 8 

2914 f 

2915 3 

2916 2 

2917 ’ 

2716 

2919 007104 LET @RCSR := GRCSR SET.BY @11 
pas oy 007104 052777 OGOOO11 172146 @Is 611.,GRCSR 

2922 

2925 MOVs @PRO, -( SP) ::PUT NEM PS ON § 

2924 mov 0648, -( SP) 88 new 

2525 RTI 33POP NEW PC 

2526 GAG: 

2927 sGET DATA MASK 

2328 CALL DATLNG OuT <Ri> 

2929 SL @1202,R5 

2930 JSR PC,DA 

2931 mars (RS) RI 

2932 LET RO :° GRBUF ; START CLEAN 
2935 OO7136 017700 172120 MOV GROuUF .RO 

2934 sBINARY COUNT PATTERN 
2935 007142 INCR R2 FROM €0 TO 0377 BY 61 
2936 067142 005002 CLR 

2937 007144 00040i oN 501576 

2938 007146 $01608; 

2939 007146 005202 INC Re 

2340 007150 501578: 

2941 007150 020227 000377 Cee R2,0377 

*3 007154 003065 RG! $0161% 


D6 

















| MAINDEC-11-0 OvDvC -C MACY11 3OA(105S2) 12-SEP-64 15:41 PAGE * SEO 68 
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pope e 
2945 ; TRANSMIT THE CHAR. IN R2. 
2047 + MAKE SURE IT'S READY 
oReA CALL "TIMER IN <@500, OXMITRDY. TCSR, eSET> 
29 MOV 
20 177777 Ov 
2951 172074 MOV 
oe 000200 "OV 
2353 000500 OV 
Fin 001114 JSR 
2955 OV 
27% IF .ERROR THEN 
2m57 ecc 
2738 CRROR 3 TRANSMITTER NEVER BECAME READY 
2%59 EXIT TEST 
2960 000001 171740 mov 
2%1 Ge sssEXIT THIS TEST 
2962 007222 ENDIF 
os 007222 $01628: 
25 sSTART IT ON ITS WAY 
2966 007222 T STOW :B= R2 
2967 OO7222 110277 172042 nove 
2968 * WAIT FOR RECIEVER DONE 
2969 007226 TIMER IN «0500, ORCVRDOME .RCSR, OSET> 
2970 007226 MOV 
2971 007230 MOV 
2972 OoO7T2%4 MOV 
2973 007240 MOV 
2974 007244 MOV 
2975 007250 ISH 
2976 007254 MOV 
2977 007256 IF .ERROR THEN 
2976 007256 BoC 
2979 007260 ERRHRD 124 
2980 007260 ERROR 
2961 3 RECIEVER NEVER BECAME READY 
2962 007262 EXIT TEST 
2963 007262 012767 000001 171670 MOV #1, ¢TIMES 
2964 007270 BR 123 sas€XIT THIS TEST 
2965 007272 ENDIF 
2966 007272 $0163%: 
2967 
2968 : RETRIEVE 
2969 007272 LET RS :* GROW 
2990 007272 017703 171764 MOV Sreur .RS 
PFA? 4STRIP OFF JUNK ON BOTH 
2993 LET :* R2 CLR.BY Ri 
4 R2 RS 
29K eIc 1,R4 
SRG LET RS := RS CLR.BY R1 
2997 BIC R1,RS 
2996 
2999 ;WE HAVE TROUBLE 


E6 


MAINDEC - 11 -OVODVC -C MACY11 SOAC10S2) 12-SEP-84 15:41 PAGE 70 
CvOvCcCc .P11 12-SEP-84 08:55 T22 TEST DATA THROUGH WRAP 


SEQ 69 







3000 007304 IF R4 NE R3 THEN 
3001 020403 CH séRA.RS 
001405 BEG 0s S48 
Ee 11? COPS SeUAS 
106117 ERROR 117 ——“ 
x ON ERROR 
012767 000001 171640 MOV —=s-:«@1, #TIMES 5 
000404 BR TST23 :33€XIT THIS TEST 
ENDIF 
501648: 
000711 eR 501608 
501618: 
052777 000011 171726 BIS 011, BRCSR 


ENDTST 





MAINDEC -11-OVDVC-C 
CvOvcc .P11 


SRESSSioasaassseeeeteeeRauopauoRoESe shat ses eoecearccoesS 





012746 
012746 
000062 


016701 


012721 
012721 


012721 


MACY1i1 


12-SEP-84 08:55 





0c0002 
001066 


000000 
007424 


007570 


171616 
171630 


171642 


F6 


SEG 70 


3OA(1052) 12-SEP-64 15:41 PAGE 71 
T22 THROUGH WRAP 


TEST DATA 


23 SHESSSHSHEASSSHSSAASSHABSHASSHHSSHRERSSHSHTSHOHRHSHARESSRHSCEEHABEH RH EEDM 

IXXEEXXXEXECEEXXEEEEEE 

seTEST 23 FULL DATA TRANSFER WITH 

18 RE MAINTENANCE — 

p COSSSSORSSSSSHRSESSSSESSEESEESEEEESSSEEEEOSESESEEEOEESESEEEEEDES 
SCOPE 


1ST23: 


















MOV @1,¢TIMES 3:00 1 ITERATION 
MOV 023, STESTN 33SET TEST NUMBER IN APT MAIL BOX 
IF @MAINT APP NOTSETIN SUSWR ORB CONSOLE EQ @eTRU 
50165$: 
EXIT TEST 
sssEXIT THIS TEST 
ENDIF 
501668 : 
3GET DATA MASK 
CALL DATLNG OUT <R3> 
Sue 
JSR 
MOV 
MOV 
MOV 
RTI 
646: 
sGET VECTOR ADORESS 
LET R1 := OLVEC 
MOV OLVEC .R1 
sRCVR VECTOR 
LET CRL)+ := @REC 
MOV @REC .CR1 D+ 
MOV @PR7T,.CR1) —— 
sPOINT TO TRANSMITTER VECTOR 
;AND SET IT UP ALSO 
LET (CRi)+ :* @TRAN 
MOV @TRAN,CR1)+ 


MAINDEC - 11 -OVDVC -C 
CvOvcc .P11 


064 
3065 
3086 
3067 
3066 
3069 
3090 
3091 
92 
wss 
3O9a 
ws 
3096 
3097 
Ose 
3099 
3100 
3101 
3102 


007444 
00 7444 


007450 
007450 


0074354 
007454 


007460 
007460 


007462 
007462 


MACY11 SOAC 1052) 


12-SEP-84 06:55 


012711 9003540 





177777 


000100 


000100 


000100 171512 
000100 171500 


171566 


171560 


171546 


171530 


G6 


SEQ 7i 


TRANSFER WITH INTERRUPTS 


12-SEP-64 285 PAGE 72 
T23 FULL DATA 


501676: 


501708: 


501718: 


BIC 
BIC 


@PR7 ,CR1) 


ERRCNT 


#-1,R1 


OXMITIE .STCSR 








ERRCNT 
501718 


120 


OXMITIE .@TCSR 
@RCVRIE , GRCSR 


LET (R1) := @PR7 


Key A ERROR COUNTER 
LET ERRCNT :* 


s INITIALIZE COUNTERS 
LET Ri :* @-1 


— STORAGE 
LET R2 :2 


1@ OF RECEIVED CHAR. COUNT. 
LET R4 :© @-1 
BRESET ;SET UWP ALL REGISTERS 


SET UP MAINTENANCE 
LET BTCSR :* STCSR SET.BY @MAINT 





T I.€. IN TRANSMITTER 
LET OTCSA s+ BTCSA SET BY OMUTIE 


we RECEIVER 
LET GRCSR := GRCSR SET.BY @RCVRIE 


sNOW WE WAIT UNTIL R4 COUNT (RECEIVED) IS EQUAL 
REPEAT 


UNTIL R4 EQ NUMBER OR ERRCNT GT @0 


LET @TCSR := BTCSR CLR.BY @MAINT 


i: —5 FOR DATA COMPARE ERRORS. 
IF ERRCNT NE @0 THEN 





so COMPARE ERROR 
120, COMP ,FIRST 





ENDIF 


LET STCSR :© SBTCSR CLR.BY @xMITIE 
LET @RCSR := GRCSR CLR.BY ORCVRIE 





H6 





MAINDEC -11-OVDVC-C MACY11 SOA(1052) 12-SEP-84 15:41 PAGE 78 SEQ 72 
CVDVCC.P11 12-SEP-84 06:55 123. FULL DATA TRANSFER WITH INTERRUPTS 
3140 007560 EXIT SKIP OVER SUPPORT ROUTINES & ST 
S141 007360 000462 BR TsT24 +a3€XIT THIS TEST Cunt 


3144 907564 001000 
000 





000100 171440 





017702 171422 


NUMBER: 1000 
SB: -BYTE O 
WAS: BYTE O 






UE SPHOHARKSOHKSASSEHSEHSESHAHSSASHEAESHEAASL SESHHEKSEESHEEHEHOSEREHRHEAOH 


s TRANSMIT INTERRUPT HANDLER 
BGNSRV 








TRAN 
TRAN: 
IXXXXEXVXXXXXXXIIXX 
s INCREMENT CHAR COUNT 
LET R1 :* Ri + #1 
INC Ri 
3sSET UP FOR TRANSFER 
LET HOLD :° Ri CLR.BY RS 
R1,HOLD 


sD SEND. 
LET STBUF := HOLD 


sALL DONE 
IF Ri EQ NUMBER THEN 





Bre $0172 
sSTOP INTERRUPT PROCESSING 
LET STCSR := STCSR CLR.GY OxMITIE 
BIC OxMITIE .@TCSR 
ENDIF 
$0172: 
be 222 3; EXIT SRV 
HO0LD:0 
Z222Z: ENDSRYV 
RTI 


8 § SSSSSSSSHSSSSHSSSSSSSSHOSSSSSSSSSSSSSSSSSSSSOSHASSSSSESSSESSSHE 
5 INTERRUP 


a BGNSRVY REC 
| p SbeeeSesnnscrcccoosscscosacceseccesscecessoocsesenceseecescees 
;COUNT THIS CHAR. 
LET Ra 72 R44 e 1 
INC Ra 


sGET CHAR IN + MASK IT 
LET R2 :* GRBUF CLR.BY RS 
GROUF ,R2 


g 


MAINDEC - 11 -OvOVC-C 
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MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 74 
33 Tes FULL DATA TRANSFER 


Cvovcc .P11 12-SEP-64 06: 
3196 007640 040302 BIc RS Re 
3197 * 
ThA? 7 000056 MOV R4 ,RHLD 
007646 040867 000050 BIC R3,RHLD 


yet: : Seceuscnoedesnaveneess 
STEPPE TET ANA ERE TELE ET EE EE 








001003 














177672 RHLD,SB 
R2, WAS 
501748: 
INC ERRCNT 
50173: 
177654 
000100 171340 BIC 
501758: 
SH 2ZZZ 
2222: 
RTI 





SEQ 75 


WITH INTERRUPTS 


4 ey BY 2 eee 
ET RHLD :* RA CLR.BY R 





300 THEY COMPARE 
IF R2 NE RHLD THEN 


sFIRST ERROR 
IF ERRCNT EQ @0 THEN 


sSAVE RECORD OF FIRST MISS 
LET SB :B=< RHLD 


LET WAS :B- Re 











sSTOP RECEIVER INTERRUPTS 
LET @RCSR := GRCSR CLR.BY @RCVRIE 
3 INDICATE ALL DONE TO TIMER 
3MAIN REPEAT LOOP IS CHECKING 
“— ‘R4 = NUMBER’ ALSO 





~ 


SESTEETELESEL LILI i LL EERERERERELE LEGS SL et ST er R epee 


MACY11 
06:55 





J6 


3SOAC 1052) 12-SEP-84 +t PAGE 75 
T2s FULL DATA TRANSFER WITH INTERRUPTS 


££ SSSSSSSSSSSSSSSSSSSSSSSSSSSSOSSSSSESOHSHSSSSSHSSSSSESSEEEEESHSEE 
§ f SSSOSSSSSSSSSSSSSOHSSOHSESHHSSHSSSSSSHSSSSHSSSSHSASHHSSESEESEHEE 


SEQ 74 








3;@TEST 24 TEST BREAK GENERATION LOGIC 

3¢ TRANSMIT KNOWN CHAR WITH BREAK SET 
;@ AND COMPARE RECEIVED WI . 

3¢ FRAMING ERROR WILL ALSO BE CHECKED 
4 IF ERROR BITS ARE 





; pOSeeerccnsocassancesoonceseesesooeneseeeesseescoeeeseceeeeees 
TS 


T24: 
#10, $TIMES 33:00 10 ITERATIONS 
€24 , $ 











. STESTN :3SET TEST NUMBER IN APT MAIL BOX 
IF @MAINTJUMP NOTSETIN SUSWR OR #BRK NOTSETIN $U 
@MAINT JUMP , SUSWR 
USUR 
501768: 
EXIT TEST 
01, STIMES 
TST25 :ps€XIT THIS TEST 
ENDIF 
501778: 
IF CONSOLE EQ @TRUE THEN 
CMPB 0s CONSOLE, @TRUE 
BNE 50200¢ 
EXIT TEST 
MOV @1, STIMES 
BR TS125 s:;€XIT THIS TEST 
ENDIF 
502008 : 
LET ERRCHK := @0 ; CLEAR ERROR WORD 
CLR ERRCHK 
;SET MAINTENANCE BIT 
LET STCSR := STCSR SET.BY MAINT 
ars @MAINT , aresa pus 
LET STCSA n= BTESR SET.BY @BREAK 
ars @BREAK,BTCSR 
;NON-ZERO CHAR. ‘0° 
LET STBUF := @252 
MOV 
;WAIT FOR DONE 
* CALL TIMER IN «#500, @RCVRDOME .RCSR, @SET> 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV (SP)+, RS 
IF .ERROR THEN 
Bcc 502018 
; RECIEVER DONE DID NOT SET 
ERRHRD 115 
ERROR 115 


6 
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cvovec Pil 12-SEP-64 06:55 T24 TEST BREAK GENERATION LOGIC 


SEQ 75 


7 ENDIF 
010076 502018: 


3303 

$306 010076 ee rsTe IF6 GRBUF NE @0 THEN 
7 76 105 1711 

3307 0100 1 aro 33. 

3309 


BREAK DID NOT EQUAL 0 
LET ERRCMK :* ERRCHK SET.BY @BITO 
@6ITO, ERRCHK 


ELSE 


IF @ERRBITS SETIN $USWR THEN 


010114 052767 100000 171076 @ERRBITS , SUSUR 
010122 50204 $ 





IF @FRERR NOTSETIN GRBUF THEN 
OF RERR , GRBUF 
50205 % 


@BIT1, ERRCHK 





010124 032777 920000 171150 





LET ERRCHK := ERRCHK SET.BY @BIT1 





010 
010134 052767 000002 000050 


BRESET ;CLEAN UP 


IF @BITO SETIN ERRCHK THEN 





ERRHRD 121 ;BREAK ERROR 





i2i 

ENDIF 

IF @BIT1 SETIN ERRCHK THEN 
10166 ERRHRD 122 ; FRAMING ERROR 
010166 104122 ERROR i122 
010170 ENDIF 
010170 502078 : 
010170 EXIT 
010170 000401 BR TST25 sssEXIT THIS TEST 
010172 000000 ERRCHK: .WORD 0 
010174 ENDTST 


15 

16 

16 
3319 
3320 
3321 
3322 
3323 
$324 
3325 
3326 
3327 
3326 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3242 
3343 
SMa 
3345 
3346 
3347 
3348 
3349 
3350 
3351 





Mn. NDEC 
CvOvcc .P11 


PREEEL As 14 td dt 
PEEEEEE LY aga aoe 


38 
ox 


-11-0v0vC-C 
12-SEP-64 06:55 


010174 
010176 
010204 


10304 
010310 
010314 





L6 
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T26 TEST BREAK GENERATION LOGIC 


000001 170754 
010212 


171026 
010236 


171002 
010284 
170610 


170602 
001171 
171616 


§ § SSHOSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHHSSHHSSSHSSSHHSESSOSEE 


seTEST 25 NOT A TEST - SEND BACK TO LOOP 
IIXIXXXVEXXEXXXEXERROX2ůODůXREEEEEEEEEEROS 


1$125: SCOPE 
MOV 


#1, ¢TIMES 
TYPE 65% 
BF 6At 
T8 .ASCIZ <CRLF>eCSR: ⸗ 
: 
MOV DLADO. -( SP) 
TyYPoc 
TYPE 67% 


eR 
33678: .ASCIZ ¢,VECTOR: « 
665: 


MOV OLVEC, -(SP) 
TYPOC 








SERTIL. -CSP) 
sERTTL 
sCRLF 






LOOP 








32:00 1 ITERATION 
ssTYPE ASCIZ STRING 
33:GET OVER THE ASCIZ 


1sSAVE OLADO FOR TYPEOUT 

60 TYPE--OCTAL ASCIICALL DIGITS) 
ssTYPE ASCIZ STRING 

3sGET OVER THE ASCIZ 








ssSAVE OLVEC FOR TYPEOUT 
TYPE--OCTAL ASCIICAL DIGITS) 






s SAVE sERTTL FOR TYPEOUT 
‘ome ty IMAL ASCII WITH SIGN 
: FOR NEXT DEVICE /PASS 


; BACK UP TO THE BEGINNING 








SEQ 76 





MAINDEC - 11 -OVDVC -C 
Pil 12-SEP-64 06:55 





Hatttesttittitisttet itt erty td tid dd 
auaubeoeas = ~ = 2 283 


010320 
010320 


000001 
000000 


016567 
016567 
112767 


MACY11 30A( 1052) a 15:41 PAGE 7 


000114 


000111 


000101 


M6 


NOT A TEST - SEND BACK TO LOOP 


SEQ 77 





IIXXEDXEXEIENXVXXXXR 
_— TIMER <HOMLONG .WHICHBIT REG. SETCLR> 





10 ROUTINE : TIMER 
THIS ROUTINE IS USED TO TEST THE STATUS OF ANY BIT 








3¢ IN ANY REGISTER. 
1* InPuTs: 
;@ HOME OPES THE MAXIMUM AMOUNT OF TIME TO SPEND IN 


A MASK WITH THE BIT(S) SET THAT ARE 





TRUE 1 
FALSE= 0 
LET REGSAV := REGC(RS) ; GET POINTER TO REGIST 
MOV REG( RS ) .REGSAV 
LET TIMSAV := HOMLONG(RS) ; SAVE HOMLONG FOR 
MOV MOMLONGCRS >), TIMSAV 
LET FLAG :B= @FALSE ; INITIALIZE THE EXIT FLA 
MOVB OF ALSE .FLAG 
: START OF AN INFINITE LOOP 
LOOP 
$00028 : 
; TEST TO SEE IF WHICHBIT IS SET 
IF WHICHBITCRS) WOTSETIN GREGSAV 
BIT WHICHBIT( RS), SREGSAV 
$0004 ¢ 
LET HOLDSC :B- @CLR 
MOVE @CLR .HOLDSC 
ELSE 
BS 50005 $ 
$6004 4: 
LET HOLDSC :B= @SET ; REMEMBER THIS 
Ove @SET ,HOLOSC 
ENDIF 


s NOW SEE IF THAT WAS WHAT WE WANTED 
IFB HOLDSC EQ SETCLRCRS) THEN 


MAINDEC -11 -OvDvC -C 
CvOvcc .P11 12-SEP-64 06:55 


3435 010370 126765 000075 900006 Crs 
010376 001005 BNE 
3437 
010400 
3439 010400 112767 000001 900062 MOVB 





000016 000001 


50007$: 





SRSSERSEZaSaasaNTSebeRetERees 








N6 


MACY11 SOAC 1052) 12-SEP-64 15:41 PAGE 79 
T2s NOT A TEST - SEND BACK TO LOOP 


MOLDSC . SETCLACRS ) 
s000s$ 


OTRUE .FLAG 


$0001 % 





SEQ 76 


; JUST THE THING WE NEEDED 
LET FLAG :B= @TRUE 


ENDIF 


EXIFB FLAG EQ @TRUE OR TIMSAY LE #0 


LET TIMSAV := TIMSAV - @1 ; COUNTING DOWN 
; CONTINUED AT THE TOP 


IME---ERROR ! ! 
THE CORRECT CONDITION--GOOD : ! 


IFB FLAG EQ @TRUE THEN 


RETURN NO.ERROR ; GOOD 


87 







































SEQ 79 

MAINDEC - 11 -OvDVC -C MACY11 3SOAC1052) 12-SEP-34 15:41 PAGE 80 
CvOvCC .P11i 12-SEP-64 06:55 123 NOT A TEST - SEND BACK TO LOOP 

Yad 

2469 SOOOOSSSSSSSSSOSOSES SOE SOSOSHSHHSHESHHHHSEOHSSSOSEESEEEEEOEOESOS 

$490 010676 ROUTINE DATUNG <MASK> 

3491 0104676 DATLNG: 

3495 74 THIS ROUTINE S W A MASK FOR DATA, WITH 

et Bh 3¢@ 6XIMPUT - NOTHING IS PASSED TO THIS ROUTINE 

MS 10 BUT GLOBAL INFORMATION IS ASSUMED TO EXIST: 

St 1* CUSUR-- THE WORD FOR SOFTWARE PARAPETERS 

3497 38 DATA-- A MASK FOR THE LOCATION OF TME OCTAL 

48 OR 10 NUMBER OF DATA BITS 

324 99 3¢@ GuTPUT 

5500 ae MASK OF BINARY ONES RIGHT - JUSTIFIED 

3501 3° THE NUMBER OF WHICH IS DEFINED IN SUSIR WORD. 

3303 IIXEEXXIXXEEI 

5508 ‘ENABL LSB 

3505 010476 LET MASK(RS) := @0 3; START 

3506 010676 CLR 

3507 010502 LET NUMBR := SUSUR AD ODATA 

3508 010502 MOV 

35509 010510 MOV 

3510 010514 exc 

oe 010520 eIc 

$513 010526 INCR I FROM @1 TO NUMBR BY 61 

5514 oes MOV #1.I 

3515 $0002 

3316 010534 

3517 010534 Inc I 

3316 010540 

3519 010540 Cr I, WPBR 

3520 010546 ie $0004 § 

3521 010550 LET MASK(RS) := MASK(RS) SHIFT 1 

3322 010550 ASL MASK( RS ) 

3523 010554 LET MASKC(RS) := MASKC(RS) SET.BY 01 

3524 010554 6Is 61 ,MASKCRS) 

35325 010562 ENDINC 

3326 010562 $0003¢ 

3527 010564 

3528 010564 LET MASKC(RS) := COMP MASK(RS) 

3529 010564 

3330 010570 RE TURN 

3531 010570 

3532 010572 

3333 74 ENOR TN 

3534 010574 

3535 010574 

3534 010574 000207 PC 

3537 





| Cvover.Pil. 


~ 


— 


3544 
3345 
S346 
3547 
3348 
Saag 
33350 
3553 
33 
5355 
S356 
3337 
33538 
33359 
3560 
3361 
3364 
3365 
3366 
3367 
3368 
3369 
3570 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3376 
3579 
3380 


= 





010576 
010576 


GRERREREREREEEERREERERESSSSSEEEES 
gees Saco a 


010654 


OvOvec -C 
12 - SEP -64 


010146 
01iCese 





020201 
101010 
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MACY11 SOAC 1052) 12-SEP-64 15:41 PAGE & 
06:55 T2s 


000100 


NOT A TEST - SEND BACK TO LOOP 
; nen eerterinnnermemnanenanseceonccecnssoneesense 
* > 

WAIT: 
s@ ROUTINE : WAIT 
THIS ROUTINE ee es Ca © THE 

PROGRAM FOR A SPECIFIED AMOUNT OF Ler 
TS IS ACCOMPL BY INCREMENTING 
s@ REGISTER WP TO A LIMIT. THE TER LOOP IS SET 

APPROXIMATE 1 MILLI SEC. 



















; {seececonssecensecnssssseceasseaessesnensoaeneasesnssencnseaeees 
tv ~ Spe} 4 33PUSH R1 ON STACK 
—8 R2,-(SP) :sPUSH R2 ON STACK 


RS, -(SP) + gPUSH RS ON STACK 
LET Ri :¢ TIMECRS) 


CRS) RI 
INCRU R2 FROM 01 TO Ri BY 61 
#1 ,R2 





$0002 ¢ 
@01 ,R2 












R2,R1 
3OGO4 ¢ 
en ee Cae ay #1 





$0007: 


33:P0P STACK INTO RS 
33P0P STACK INTO R2 
33PO0P STACK INTO Ri 





| MAINDEC - 11 -OvDVC -C 


CvOvcc .P11 


010656 





MACY11 SOA( 1052) 
06:55 


INTSRV: 
3@ SERVICE ROUTINE: INTSRV 


D7 


SEQ $1 


12-SEP-64 15:41 PAGE 62 
T25 NOT A TEST - SEND BACK TO LOOP 


-SBTTL INTSRY INTERRUPT SERVICE ROUTINE 


£ § SSSSSSSSSSSSNSS BODSSSSSSSSSSSSHSSSSSSSSSSSSSHSESSSSHSSESEHEESEHOS 










:¢ THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 

‘INTFLAG’ EACH TIME IT IS CALLED. IT ASSUMES 
THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
10 TO LOOK FOR. 


sADD 1 TO ‘INTERRUPT OCCURED’ FLAG 
LET INTFLAG :* INTFLAG + @1 
INC INTFLAG 


sTHAT’S ALL 









RTI 
0 


INTFLAG: 


ef 


MAINDEC - 11 -OVDVC -C MACY11 SOA(1052) 12-SEP-84 15:41 PAGE 85 
CvOvCcCc .P11 12-SEP-64 06:55 INTSRY INTERRUPT SERVICE ROUTINE 


SEQ 62 






TO POINT TO 





THE 
2 


14 ee 
L 


’ LET APTCON :B* @FALSE ; SET DEFAULT VALUE 





000000 000230 MOVB OF ALSE . APTCON 
LET CONSOLE :B= @FALSE 
000000 000223 MOVB OF ALSE . CONSOLE 
REPEAT s UNTIL BITMASK SETIN $De vn 
18 $0002$ : 
IF BITMASK EQ #0 THEN 
3620 O01 005767 000200 TST BI THASK 
3621 01 001027 BNE $0003 % 
3622 010710 IF INITFLAG EQ #1 THEN 
3623 010710 026727 000174 000001 ChP INITFLAG, @1 
3624 010716 001003 BE $ 
3625 010720 LET INITFLAG := @0 
3626 010720 005067 000164 CLR INITFLAG 
3627 010724 ELSE 
3626 010724 000405 BA 500058 
3629 010726 500046: 
3630 010726 CALL SEOP ; AS A SUBROUTINE 
3631 010726 004767 000370 ISR PC, s$EOP 
3633 010732 SPECIALADORESS: 3 BECAUSE SEOP RETURNS AS A JUrP 
3634 010732 LET RO := POP 
3635 010732 012600 MOV (SP)«,RO 
3636 010734 ENDIF 
3637 010734 500056: 
3636 010734 LET BITMASK := #1 
3639 010734 012767 000001 000144 MOV #1 .BITMASK 
3640 010742 LET SDEVCT := #1 
3641 010742 012767 000001 170234 MOV #1, ¢DEVCT 
3642 010750 LET ADORESS := sBASE 
3643 010750 016767 170274 000154 HOV $BASE , ADDRESS 
3644 010756 LET VECTOR := sVECT1 
3645 010756 016767 170262 0001350 MOV $VECT1. VECTOR 
3646 010764 ELSE 
3647 010764 000410 BR 50006 ¢ 
3648 010766 500034: 
3649 0107456 LET R4 := 010 
3650 010766 012704 000010 MOV @10,R4 
3651 010772 LET BITMASK :* BITMASK ROTATE 1 
3652 010772 006167 000110 ROL BITMASK 
3653 010776 LET ADDRESS :* ADDRESS + R4 
3654 010776 060467 000110 AGO R4, ADDRESS 
3655 011002 LET VECTOR ;= VECTOR + R4 


' 


MAINDEC - 11 -OVDVC-C 
cvovcc 12-SEP-64 06:55 


Eee Hitt ttiiiiiiii ii PrePePeEeELtitiii id itd: 


j H 
Or w 


Pil 


011074 


011074 
011074 


060467 


036767 
001732 


026727 
001025 


112767 
016767 
016767 


012701 


MACY11 


000106 


000074 


000001 
000060 
000054 





011112 
170100 


170136 


500118: 
§$00108: 
50007$: 


3OAC 1052) 12-SEP-84 15: 
iNTSRY INTERRUP 





F7 


SEQ 65 


41 PAGE 64 
T SERVICE ROUTINE 


R4, VECTOR 


ENDIF 
UNTIL BITMASK SETIN SDEVN 


BITMASK , SOEVM 
50002 $ 


IF 
BITMASK ,@6IT15 
500078 


BITMASK EQ @6IT1S THEN 


LET CONSOLE :B= @TRUE 


@TRUE , CONSOLE 
CONADR , ADDRESS 
CONVECT , VECTOR 





sDEVCT 


LET ADDRESS := CONADR 
LET VECTOR := CONVECT 


IF @CONMAINT NOTSETIN SUSUR THEN 
LET NOCONMAINT :B* @TRUE 


ENDIF 
IF @APTENV SETIN SENV THEN ; APT MODE 
IF $PASS NE @) THEN ; NOT FIRST PASS 
3 DEFINE DEVICE AS APT CONSOLE 
LET APTCON :B= @TRUE 
; FIRST PASS 
; BITMASK 


LET ADRS := @ADDRESS 





LET SDEVCT := SDEVC: + #1 





RETURN 


s CONSOLE FIRST 


3 CONSOLE ADORESS 
3 CONSOLE VECTOR 


MAINDEC - 11 -OvDVC -C 
CvOvcc .P11 12 - SEP -64 
$70$ 011124 000 
3704 011125 000 
$705 011126 
3706 0111350 
3707 
3706 0111350 
3709 011150 
$710 011150 
3711 011130 000207 
3712 


67 


MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 65 
INTSRVY INTERRUP 





T SERVICE ROUTINE 








SEQ 64 


— — —— — — — — 


011140 


170022 
011166 


167710 
167764 


011224 


167656 
0611250 


167770 
011274 


167744 
001171 





167770 


H7 
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08:55 INTSRY INTERRUPT 


SERVICE ROUTINE 


ROUTINE MYTYPE 
MYTYPE: 


a8 OO — 








BR GAL 8 
a -ASCIZ <CALF>eTEST @ - 
: 
MOV sTESYN, -( SP) 
TYPOCc 
678% 
4H $ 
33678: ¢, ERROR @ « 
663; 
SITEMB, SFATAL 
SF ATAL , -CSP) 


MOV —sOLADD., -( SP) 
TYPOC 
TYPE, 738 
Be : 
* mov sé. -('SP>> 
caur 





RTS PC 


saTYPE ASCIZ STR 
GET OVER THE ASCIZ 


ssSAVE STESTN FOR TYPEOUT 
TYPE--OCTAL ASCIICALL DIGITS) 
IZ STRING 


T OVER THE 








s APT FATAL ERROR 





STRING 
3sGET OVER THE ASCIZ 


ssSAVE SERRPC FOR TYPEQUT 
Mos Sie gL ASCIICALL DIGITS) 









ssSAVE DLADD FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICAL DIGITS) 
1A TYPE ASCIZ STRING 

33sGET OVER THE ASCIZ 





ssSAVE DLVEC FOR TYPEOUT 
60 TYPE--OCTAL ASCIICALL DIGITS) 





MAC 


OvOvc -C 
12-SEP-84 06:55 





17 


Yll SOAC1052) 12-SEP-64 15:41 PAGE 67 
END OF PASS ROUTINE 





-SBTTL END OF PASS ROUTINE 


—— — * 


PASS NMIBER ( $P: 

AFTER 1 PASSES THRU THE PROGRAM 
PASS " (WHERE XXXXX IS A DECIMAL NUMBER) 
3eIF THERES A MONITOR GO TO 
seIF THERE ISN'T JUMP TO SPECIALADORESS 




























-1,-1,0 ;sNULL CHARACTER STRING 
<15><12>/END PASS @/ 


SCOPE 

CLR sTSTNM 

CLR STIMES 

INC sPASS 

eIc #100000 , $PASS 

DEC CPC )« 

WORD i 

BGT $DOAGN 

Ov CPC )- CPC )+ 

WORD 1 

sEOPCT 

TYPE . SENDNG 

MOV SPASS , -( SP) 

TYPOS 

ae ye 

¢DOAGN 

RESET 

JSR PC.CRO) 

NOP 

hae 33FOR 
OP ssACTil 
JP : sSRETURN 
. WORD 

-BYTE 

-ASCIZ 








3816 
3816 
3820 
3821 
3822 
3423 
3624 
3825 
3826 
3827 
3826 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3836 
3839 


MAINDEC -11-OVDVC -C 
CvOvcc .P11 





011512 
011514 


011516 
011526 


12-SEP-64 08:55 





911610 000024 ‘SPWRON: MOV 
000340 000026 MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
167440 MOV 
000110 MOV 
011516 0000246 MOV 
* 








J7 


SEQ 87 


MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 66 
POWER DOWN AND UP 


ROUTINES 


-SBTTL POWER DOWN AND UP ROUTINES 


§ § SSSSHSSESSSS SASS SSSSSHSS HS HOSSSSSSHHKOSSSSSHOSSESSSSHSHSHEHEEHEES 


@SILLUP ,G@PURVEC 1, ,SET FOR FAST UP 
0340, GOPURVEC+2 ; ;PRIO:7 





Re 
33PUSH @SWR ON STACK 
23sSAVE SP 
SOPURVEC ;:SET UP VECTOR 
3 sHANG UP 





—* 
.-2 


SESSSSOESRSSEEAEEPRLGREEEALSERPGHHESKOSCRSESEEGERSHSSEASTEERHEREAA LY 









UP ROUTINE 





gi geesaaaasenxces 





ad 








ILLUP,@OPWRVEC .;SET FOR FAST DOWN 
SAVR6 , SP SP 


#8 
é : 

;sMAIT LOOP FOR THE TTY 
ssWAIT FOR THE INC 


330F WORD 
3sPOP STACK INTO @Sum 









3 sPOWER 
3s sRESTART AT START 
3» 3RESTART ADORESS 


s3THE POWER UP SEQUENCE WAS STARTED 
33 BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 





--2 
<15><12> "PO.4ER” 





MAINDEC -11 -OVDVC -C 
CvOVlC P11 





SPeRSSESPORORSSssSousauosee epee ESR pRapOeoRSE SESE SESS 


MACY11 30A( 1052) 


12-SEP-64 06:55 


167325 





167340 
167331 


167307 


7 


12-SEP-64 15:41 PAGE 89 
TYPE ROUTINE 


-SOTTL TYPE ROUTINE 


SESSESSSEESESESSEEDESEHESEEESESEOSESESEOESOEEEEESEOSEOSS 
MESSAGE MUST TERMINATE pel O BYTE. 


INE FEED. 
THE FILLER CHARACTER. 
ILLS CONTAINS THE REQUIRED . 
SFILLC CONTAINS THE CHARACTER TO FILL “FTER. 











s@CALL;: 
5 USING A TRAP INSTRUCTION 
ie TYPE »MESAOR 


ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

















,3 TYPE 
3% ME SADR 
3¢ 
STYPE: _ 3331S THERE A TERMINAL? 
MALT 
BR 
1%: MOV 
MOV 
CHPB 
BRE 
BITs 
MOV 
JSR 
61%: . WORD 
62%: BrITB 
Exe TYPE OuT 
2s: MOVE 33PUSM CHARACTER TO BE TYPED ONTO STACK 
Bae 58 IF IT ISN‘ T THE TERMINATOR 
TST IF TERMINATOR POP IT OFF THE STACK 
60%: MOV 
3%: AEX) 
RTI 3 sRETURN 
4%: = 3 3BRANCM IF <HT> 
a : ;BRANCH IF NOT <CRLF> 
TST 3sP0P <CRo<LF> EQUIV 
TYPE s3 TYPE A CR AND LF 
sCRALF 
CLRB 
fae ee 
S$: JSR PC, STYPEC 
BME 2 
MOV SNULL , -( SP) 
78: CECB 1¢SP) 
BLT Fé 
JSR PC, $TYPEC 
CECB $CHARCNT 








L/ 


SEQ a9 
MAINDEC - 11 -OVDVC -C MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 90 
cvovet Pil 12-SEP-64 06:55 TYPE ROUTINE 
012012 000770 eR 7% 1 sLOOP 





ssREPLACE TAB WITH SPACE 
TYPE 





~ 
wn 
w 






012014 
012020 
012024 
01203? 
012034 
0120% 
012040 
012064 BPL 
212084 MOV 
012052 BIC ssSTRIP EXTRANEOUS BITS 
012056 CMPS 3sWAS CHAR XOFF 
012062 eee 33;0R IF NOT 
012064 101%: 
012064 TsT8 3sWAIT FOR CHAR 
012070 SPL 
012072 cvs 33GET CHAR 
012076 Bic 33STRIP IT 
012102 CHS 33WAS IT XON? 
012106 PAE 33:6R IF NOT 
102%: 
TS ssFIX STACK 


ss¥AIT UNTIL PRINTER IS READY 


a 
ae” 


108: 





FERRER 
gece 
ebkRS 
















BPL 
MOVB :sLOAQD CHAR TO BE TYPED INTO DATA REG. 
IS CHARACTER A CARRIAGE RETURN? 
88 
is: CrPs 3323S CHARACTER A LINE FEED? 
3; ;GRANCH IF YES 
Tee 3 sCOUNT THE CHARACTER 
SCHARCNT : . WORD 88 COUNT STORAGE 
¢TYPEX: RTS 





— — ee — 


M7 


MAINDEC - 11 -OVOVC -C MACY11 SOAC 1052) 12-SEP-64 15:41 PAGE 91 
Cvovec Pit 12-SEP-64 06:55 TTY INPUT ROUTINE 


3936 
3937 
3936 





PPITETTTETTPEREEEEEEEES HET ETEPEPEPEREER REP Sees saga e 


-SBTTL TTY INPUT ROUTINE 


£ § SSOSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOHSEOSSSSHSOSSHSEHEEETO 





2 § SSSSSSSSSSOSSS SSS SSSSSSSSSSHKSSSSSSSLOSSESSSAASSSHSEHSSSOHEASSEES 

ssSOFTWARE SMITCH REGISTER CHANGE ROUTINE. 

oROUTIME IS ENTERED FROM THE TRAP HAROLER, WO WILL 

CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 

FLAG MODE. 

Sti 3321S THE SOFT-SUR SELECTED? 
58 IF NO 


33CHAR THERE? 
s3IF NO. OON’'T WAIT AROUND 
SAVE Crue 





















po gga33 8982 


o 
a 


















MOvB s3PICK UP CHAR 
6Ic 33MAKE IT 7-BIT ASCII 
012272 CSP).025 3312S IT A CONTROL -U? 
012276 106 3 ;GRANCH IF NOT 
» SCNTLU 33YES, ECHO CONTROL-U (tU) 
SP 28 PREVIOUS 
19% ssLET’S TRY IT AGAIN 


3381S IT A <CR>? 










ECHO 
3 sRE-ENABLE TTY KBD INTERRUPTS? 


3 s@RANCH IF NOT 
3 sRE-ENABL™ TTY KBD INTERRUPTS 
RE TURN 


PEEL ECELCL MLE 


ss 


SEG 90 


N? 

























SEG 9 
MAINDEC - 11 -DvDVE-C MACY11 SOA(1052) 12-SEP-84 15:41 PAGE 92 : 
CVvOVCC .P1i1 12-SEP-64 06:55 TTY INPUT ROUTINE 
3992 T 18% | 
3993 Cor (SP). 067 | 
3998 807 16% 
3905 sic €60,(SP)- 
3996 TST 2c?) 
3997 178% 
3q9e ase (SP) 
3999 ASL (SP) 
4000 ASL (SP) 
4001 17%: Inc 2(SP) 
4002 sIs -2(SP). CSP) 
4005 Bf 7$ 
agua 16%: TYPE . SQUES ssTYPE ?<CR><LF> 
4005 20% s3sSIMULATE CONTROL 
ROO .OSARL LSB 
4007 
2008 
4009 § J COSSCHSSSSSSSSEHESSSEESEHSSEHSESHSESESSSSESSSEESDDSESEEEEEEEEEES 
—* a ee ee EE 
’ : 
4012 3@ ROCHR 3s IMPUT A SINGLE CHARACTER FROM THE TTY 
4015 10 RETURN HERE 88 IS ON THE STACK 
4014 10 33WITH PARITY BIY STRIPPED OFF 
4015 $ 
4016 
4017 : MOV 
£018 MOV 
4019 T 
&Q20 BPL 
4021 MOVE 
4022 8ICc 
aes CHP 
4Oe4 GA 
4025 TsT8 
4026 SAL 8 
4027 MOVE 3sGET CHARACTER 
4026 810 3 sMAKE IT 7-BIT ASCII 
4029 Chp 3328S IT A CONTROL -Q? 
4030 y 33sIf MOT DISCARD IT 
4032 CHP 
4033 BLT 
4034 Cor 
4035 oer 
4037 4$: RTI 
4038 XXIEXXXEXVEREE 
4039 s@THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
4040 s@CALL: 
4041 10 s3INPUT A STRING FROM THE TTY 
4042 130 SS OF FIRST CHARACTER WILL BE ON THE STACK 
4045 3% 33 TERMINATOR WILL BE A BYTE OF ALL O'S 
4045 012564 010346 R3,-C(SP) 
4046 012566 012703 012672 OsTTYIN,RS 
4047 012572 0227038 0 2s: CMP OSTTYINGS. .RS 


—— we 


OvOvc -C MACY11 SOA(1052) 12-SEP-64 15:41 PAGE 95 
12-SEP-64 06:55 TTY INPUT ROUTINE 


SEO 92 












4048 8LO0S aa 330R IF YES 
4049 ROCHR 13G0 READ OME CHARACTER FROM THE TTY 
8050 MOVE (SP )-, CRS) 3 3:GET 
4051 108s: CHB 0177,(R3) 1821S IT A RUBOUT 
4082 oa SKIP IF 
4053 4%: TYPE . SQUES 
aye BR Lé 
4055 3%; Ove CRS). 98 
USP TYPE ° 
4037 Core @15.,CRS)-« 
458 BAE 2s 
4059 CLAB -1¢R3) 
406) TYPE 
4062 —* —— We STACK AMD PUT ADORE 
88 SS OF THE 

4.0635 MOV 8 FIRST ASCII CHARACTER ON IT 
Be MOV 
4068 RTI 3 sSRETURN 
8066 90: BYTE O ssSTORAGE FOR ASCII CHAR. TO TYPE 
prot stTr™: ‘SUS 8 SE ESENVE © BYTES FOR TTY INPUT 

2 e . 8 Y v 
OF SCNTLU: .ASCIZ /tU/<15><12> ssCONTROL “U" 
4070 SCNTLG: .ASCIZ /*G/<15><12> ssCONTROL °G" 
peed -ASCIZ <15><12>/SUR = / 
4073 -ASCIZ / WNEW? / 
4074 


— ——— 


-OVOVC-C MACY11 SOAC105S2) 12-SEP-84 15:41 PAGE 96 
12 PT COMMUNICATIONS ROUTINE 


SEG 95 










-SBTTL APT COPPIUNICATIONS ROUTINE 


tary itv1, MO 01 SFFLG  c TO REPORT FATA, ERROR SO666G6666 


01, OFFLG TO — FATA 
SATYS: ~ + : i 1370 TYPE A MESSAGE 
SATY4: MOVB 01, SFFLG 3sT0 OMY REPORT FATAL ERROR 








BORE SATYC: 
4063S 012762 MOV RO, -( SP) 3 sPUSH RO ON STACK 
A “OV 
4065 012766 TSTs 
“06 012772 
40867 012774 CHPA 
4066 013002 ae 
4069 013004 BITe 
4090 013012 
4091 013014 "OV 
40% 013020 ag) 
4073 013026 TST 
4034 013032 
4035 01305 MOV 
40%6 015040 ¥Ste 
4097 0135042 BNE 
4098 01350464 — 
4099 013050 ASR 
4100 013052 nov 
4101 013056 MOV 
4102 013064 BR 
4103 0135066 38; MOV 
4104 0135074 ASG 
4105 013102 MOV 
4106 013106 5A 
107 013112 4: . WORD 
4108 013114 S$: 
4109 0135114 108: TsT8 
4110 0135120 
aii? O13iae ec 
4115 38 11%: TST 
4114 013134 ae 
4115 013156 MOV 
41 013144 ado 
4117 013 Inc 
4116 013156 12%: CLAS 
4119 013162 CLs CLEAR LOG FLAG 
013166 CLAB 3: CLEAR MESSAGE FLAG 





DvOvc -C 
12-SE°-84 06: 








IONS ROUTINE 


SP )- Ri 


de, 


D8 


MACY11 wo seee? * SEP-64 15:41 PAGE 9 
33 T COMMUNICAT 


33:P0P STACK INTO R1 
3sPOP STACK INTO RO 


88 
ssMESSG. FLAG 








$sL0G FLAG 
ssFATAL FLAG 


MAINDEC -11-OvDvC-C 
Cvovcc 





Pil 12-SEP-64 06:55 


E8 


MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 96 
ERROR HANDLER ROUTINE 


-SBTTL ERROR HANDLER ROUTINE 


IXX XEXEXXEXEXEEEEEREEEEEEEEEEE 
INCREMENT 


;eTHIS 





THE ERROR FLAG AND THE ERROR COUNT, 








WILL 
ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


1 SAVE ERROR 
:eAMD GO TO MYT“PE ON ERROR 


geen — — 3 
La) vy o=@ 
= yo 


zazez jut 


: 





ansgenes 


~ 


ST 


Bae SE 


RTI 











OPTIONS PROVIDED BY THIS ROUTINE ARE: 





HALT ON ERROR 
INMIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 


ssERROR=EMNT AND NeERROR ITEM NUMBER 






ss TEST FOR CHANGE IN SOFT-SUR 





RING BELL 
3sCOUNT THE NUMBER OF ERRORS 
33GET ADDRESS OF ERROR INSTRUCTION 
s3sSTRIP AND SAVE THE ERROR ITEM CODE 
33SKIP IF SET 
33SKIP TYPEOUTS 
33G0 TO USER ERROR ROUTINE 








SBITOS , BSR 88 

4¢ 330R IF 

SLPERR, (SP) ;:FUDGE RETURN FOR LOOPING 
sESCAPE 1 ;CHECK FOR AN ESCAPE ADORESS 


S$ 11 ROR 
SESCAPE , (CSP) s3FUDGE RETURN ADORESS FOR ESCAPE 


@6ENDAD , 8042 ssACT-11 AUTO-ACCEPT? 
6% 1 sBRANCH IF NO 





SEQ 95 


| 
MAINDEC -11 
Cvovcc .P ii 


-DvOvC-C 
12-SEP-84 06:55 





165524 1%: 


165310 





165300 1%: 
165346 
$SVLAD: 


165354 


SESRSRSE SRS SOS SRRRERSESESERSES 


-SBTTL SCOPE HANDLER ROUTINE 


Bf SSSSSSSHSSSSSSSSSSSSSSNSSESHSSSSSHSHOSSSSHHSSSOHSSSSSSSSSSHESEOEESE 


CKSUR 

BIT 
Bee 

s@S@GOSTART OF coe FOR THE XOR 

SxXTSTR: GR 





F8 


MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 97 
SCOPE HANDLER ROUTINE 








OF **8 . IT 





= . BSWR 
















STER CHANGE 
A "NOP" (NOP=240) 
THE ERROR VECTOR 





pg et 


;sLOOP ON THE PRESENT TEST 


he SPEC. TEST? 
88 
330M THE RIGHT TEST? 

a8 ves 

334AS AN ERROR OCCURRED? 


336R IF NO 
fg = FOR THIS TEST OCCURRED? 













SWR<7:0> 












T 
OF ITERATIONS TO 00 
1 sCOUNT TEST 
13SET TEST NUMBER IN APT MAILBOX 


—~ 8 @ ook, 
BREED EE bd bh Js hot $0 


$ 
STSTNM, STESTN 





SEQ 9% 





OvDvC -C 
12-SEP-64 


MACYi1 
06:55 


G8 


SOA( 1052) 12-SEP-64 15:41 PAGE 98 
SCOPE HANDLER ROUTINE 





(SP), $LPADR 
(SP), SLPERR 
sESCAPE 





oi, sERMAX j 
STSTNM, GDISPLAY 
SLPADR , (SP) 





SEQ 97 


H8 


MAINDEC - 11 -OVOVC -C MACY11 SOAC1052) 12-SEP-64 15:41 
CONVER 


-Pil 12-SEP-84 06:55 





177777 


000010 


177777 «177776 


SERRSEGGLOGGLUSIGRORRGGRNGSSGSSSGS CSUR OpRESRESGRRGanAGE § 


PAGE 99 
T BINARY TO DECIMAL AND TYPE ROUTINE 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 












3 3sGET 
:3sFORM THIS BCD DIGIT 


$6 
THE BCD DIGIT BY 1 


— tt EERE EEE EEE 


4$: 


— 
2 





an 
3 


68: 
78: 





336R IF NO 
33 YES--SET THE SIGN FOR TYPING 
9%: THE TERMINATOR 







CSP )+ ,R2 ssP0P STACK INTO Re 


SEQ 96 





OvOvc -C MACY11 SOAC10S2) 12-SEP-84 15:41 PAGE 1 
12-SEP-64 06:55 CONVERT 


012601 
012600 
104401 014100 
016666 000002 
012616 
000002 


001750 
000144 
000012 


sOTBL : 





BINARY TO DEC 





18 


00 
AND TYPE ROUTINE 


33:P0P STACK INTO Ri 
33sP0P STACK INTO RO 
ssNOW TYPE THE 

ssADJUST THE STACK 


s RETURN TO USER 








MAINDEC -11-OVODVC -C 
Cvovcc 12-SEP-84 06:55 


Pll 





014110 


J8 


MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 1 





000076 
177770 





000211 


000 
000154 


000171 
165 


01 
BINARY TO OCTAL CASCII) AND TYPE 
-SBTTL GINARY TO OCTAL CASCII) AND TYPE 


Pe ree ap ge Regen gre ne 7— 
BINARY NUMBER 


TO A 6-DIGIT 





s@THIS ROUTINE IS USED TO CHANGE A 16-8IT 
1eOCTAL CASCIT) MURBER AND TYPE IT. 


SEQ 100 


I 
ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


Num, -CSP) ssMUPBER TO GE TYPED 





fal sf] GRO 





1 s0°SUPPRESS 



































s@6TYPOS OR $ 
s*CALL: 
a OY Num, -CSP) ssMUMBER TO BE TYPED 
1% TYPON 3:CALL FOR TYPEOUT 
* 
| @$TYPOC- --ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
s@CALL: 
3% MOV ssNUMBER TO GE TYPED 
3% TYPOCc CALL FOR 
STYPOS: MOV 
STYPOC: 61, ¢6OF TLL 33SET THE ZERG FILL SWITCH 
06, SGPODE +1 33sSET FOR SIXC6) DIGITS 
05, SOCNT ION COUNT 
RS, -CSP) 
R44, -CSP) 
RS, -CSP) RS 
 . eae 33GET THE NUMBER OF DIGITS TO TYPE 
66 , RE ssSUBTRACT IT FOR MAX. ALLOWED 
sOMODE 88 


eaarxæz 
ae 






ssCLEAR THE OUTPUT WORD 
1%: ssROTATE SB INTO “C” 
33G0 OO SB 
2%: * ufon THIS DIGIT 
RS 
RS,.RS 
3%: AS 33GET LSB OF THIS DIGIT 
sOMODE 33TYPE THIS DIGIT? 
7% @R IF NO 
ee 


RaRRRRBABASBDEaERRISRISS SESE 





$s 
3$ 538R IF YES 


ssCALL FOR TYPEOUT 
N —*8 TO 6 FOR NUMBER OF DIGITS TO TYPE 


ssieTYPE LEADING ZEROS 
LEADING ZEROS 


3 * 
:@¢TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS TH: LAST 


K8 




















MAINDEC -11-DVDVC-C MACY11 SOA(1052) 12-SEP-64 15:41 PAGE 102 SE@ 101 
CVDVCC.P11 12-SEP-84 06:55 BINARY TO OCTAL (ASCII) AND TYPE 
INC 
BIS —s_-@' 0, RS 
BIS 33 
MOVE RS. 88 
TYPE 88 
oecsi3 
aT 2 
aT 23 CS 
INCOR 
BR 26 
MOV = (SP)+,RS 
MOV = (SP)+.R4 
ov Step) acSP) a STACK FOR RE 
e 83 TURNING 
MOV = (SP). (SP) 
3 sRETURN 
0 spSTORAGE FOR ASCII DIGIT 
0 88 OR FOR TYPE ROUT 
0 ;;0CTAL DIGIT COUNTER 
0 ZERO FILL SWITCH 
0 ;3NUMBER OF DIGITS TO TYPE 








OvOvC -C 
12-SEP-64 06:55 


010046 STRAP: MOV 
016600 900002 MOV 
005740 TST 
111000 MOVE 
006300 ASL 
016000 014572 MOV 
000200 RTS 


011646 


L8 


PAGE 105 


SEQ 102 


MACYi1 SOAC 1052) 





12-SEP-64 15:41 
TRAP DECODER 





-SBTTL TRAP DECODER 








cm Sh eggs gta 3* —* 866666660 


" INSTRUCTION 


:00F THE DESIRED 
:@GO TO THAT ROUTINE. 





ssTHIS IS USE TO HANDLE THE “GETPRI” MACRO 





STRAP2: MOV (SP), -CSP) ssMOVE THE PC DOWN 
MOV 4(SP),20SP) ssMOVE THE PSW DOWN 
RTI ssRESTORE THE PSW 





-SBTTL TRAP TABLE 
s*THIS TABLE CONTAINS THE STARTING ADORESSES OF THE ROUTINES CALLED 
eBY THE INSTRUCTION. 
















TRAP +6( 104406) GET SOFT-SUR SETTING 


TRAP +7( 104407) TEST FOR CHANGE IN SOFT-SUR 
TRAP +10( 104410) TTY TYPEIN CHARACTER ROUTINE 
TRAP +11(€104411) TTY TYPEIN STRING ROUTINE 






M8 


PAGE 105 
CROSS REFERENCE TABLE -- USER SYMBOLS 


SEQ 103 


12-SEP-64 i15:41 


MACY11 30A( 1052) 
12-SEP-64 06:55 


-11-OvOvCc -C 
CvOvcc .P11 


4165 


41290 


36964 
1962 2316 2492 3675 3863 4087 


997 
3666 3691 
413500 
70 
995 


ass 


956 
971 
36540 





¢ 


niece 355 ag 888 “88 


JJ—— 
oOOOOO————— 
















SEQ 104 
OvOvCc -C MACY11 SOAC 1052) 12-SEP-64 15:41 PAGE 106 
12-SEP-64 06:55 CROSS REFERENCE TABLE -- USER SYMBOLS 
%20 
3311 
TA 
733 
732 
731 
7x 
000080 729 
726 
900200 727 
000400 726 
001000 725 
000002 3322 
COPCOO 4151 
008000 772 
8IT1i2 = 010000 791 
8IT13 = G20000 790 
BIT14 = 040000 789 
8IT15 = 100000 788 3665 
SIT2 = G00006 2406 
BITS = 000010 2611 
BIT4 += GO0GZ0 2630 
BITS = 000040 
BIT6 = 000100 
SIT7 = 000200 
BIT6 + 000600 
SITS = 001000 
GPTVEC= 000014 
= * 900001 i247 1261 1264 1278 1283 3265 
= 010000 
CKSMR = 104407 44330 
CLR «= G00000 1995 3424 
COMSPD= 000100 
COMADR 011120 
COMSGL 9011125 1626 1902 1971 2128 2658 2758 3616e  3666¢ 
COMVEC 011122 
Cnr : 8 1096 1099 3361 $721 3880 3936 
CYCLE 
3491¢ 
4150e 4246s 
i121 1125 1126 1129 1132 1148 3743 
1020 1021 1022 1023 
2607 2649 2735 3074 3368 3749 











N8 





2768e 2611¢ 2830¢ 2671 2876 3279e S33iie 33220 3534 3341 


3143@ 3206 3219¢ 











CvOvcc .P11 

















ERRVEC> 000004 
EVENOD= 000040 
EXITFL 0046050 
FASE = 000000 
FLAG €10470 
FRERR = 020000 
GMS © eeeese 
GTSMR = 104406 
OLD 007626 
“OLOSC 

“0a ON= 000000 
HT * 000011 
I 001272 
ILL Mere 000006 
IMI TFL 

INTFLA 

INTSRV 

IOTVEC= 

LF : 

LOOP 

MAINT = 

PAINT 

rmASK — — — 

PAX 

MYT YPE 

Wie 

Re al 

——— 

a 

OX 

OLD 

ORERR « 
PARITY= 

PASS 

PBALDS= 
PRALDO- 
PBADI- 
YRAUD? = 
PBALDS=- 








HUST E a 


_ 


177776 


33 


MAINDEC -11-OVvOvC -C 


1710¢ 
7370 
830 


MACY11 SOAC 1052) 
12-SEP-64 06:55 


1757 
032 





1764 
10330 





16000 
3614 
BAAS 


1097 


12-SEP-64 15:41 
CROSS REFERENCE TABL 


16126 
1064 ¢ 








1608 
3616 
3467 














1391 


2316 








2775 


2651 


PAGE 107 

E SYMBOLS 
4207 4206¢ 4210¢ 
161356 
Ra 7 Se 
1099 3360 3366 
42479 4431 4433 
1163 3$i4ée 35i7e 
2557 2579e 2595 





2395 2395 
2413e 2415¢ 
2925 3068 
3079 3085 


4215¢ 


3372 
asa 


3519 


2657¢ 


1371 
2167 
2909 





2415 


24710 


3720 
4435 


2415 


3726 


2706 


i 


SEG 105 


3741 5747 


SEQ 106 
MACY11 SOA(1052) 12-SEP-64 15:41 PAGE 106 
CROSS REFERENCE TABLE - 










































| MADOEC- 11 -OVOVC -C 
| CvOvCC .P11 12-SEP-64 06:55 USER SYMBOLS 
« 1777% 6520 
| PSM ee = 000026 J 3799 38000 3609¢ 381Se 38627¢  3626¢ 
RATES 
| RATES. 001262 10200 2178 2227 2259 2277 2344 ah ay 27865 2635 
| 2933 
RCSR 001260 10190 1$07e¢ 1510 1S24e 1529 1560 1625 16%4 682 
1926 2077 29 2564 2663¢ 2680 2687 27276 
* 3139e 3229¢ 3293 
RCVRAC= 004000 , 
Yoo, 1953 2051 2077 DOGS 284 2€31 2623 2973 
000100 777@ ©1477 1510 1524 1329 2663 2687 2727 3111 3130 
000001 aye 
000002 Mee 
000004 adie 
000010 BOR 
000020 TI98 
CRM) 756v 
RDATAS= 000100 7970 
060200 8 
ROOM = 104410 404 9 Ab BSE 
ADLIN = 106411 44 S57 
RoR 000001 7630 
Sie 007632 3077 
SEG 40 = CO0004 Saad @ 
REGSAV 010464 Bees 34776 
RESVEC= 000010 7384 
RMD 007722 Si GPs 42 3a@ 
R00SO 005624 24558 
R0070 005625 2 326 
R0110 005626 e455e@ 
R0135 005627 24568 
0150 005630 293760 
aie 0056335 PRS 
005631 — She 
ROGCO 005632 24596 
R10000 005643 Sk68S 
R1800 005634 28618 
R2000 005635 ehh 
R2400 005636 Page 
R3600 005657 Shhh 
R48600 005640 2660 
RSSTAC 00135354 1026@ 1135 
R7200 005641 PaERO 
R9600 005642 246760 
007366 31450 , 
SET © 177777 7610 1768 1784 1793 1800 1804 18653 1927 2010 2019 2523 
79 2971 3232 
000006 33. 
010732 S633@ 
001100 Ea oe 
001336 675 
177774 6534 
001140 936@ 1032 1054e 1056 1062e¢ 1069¢ 1063 3807 3820 3946 3963e 4151 4158 





£ 
3 


4174 4202 4216 4216 4224 4231 


SEQ 107 
MAINDEC -11-OvDvC-C MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 1 
CvOvcc .P11 12-SEP-64 06:55 CROSS REFERENCE TABLE -- SYMBOLS 





SHREG 900176 1062 1083 5986 3959 
900001 
900001 706 
000002 705 
20004 704 
900010 703 
000020 702 
000060 701 
000100 700 
699 
696 


3 
~ 








SSSIRESEESE EERIE ECE et ieee 


ae SUETOLEEETEEESEECRSERESHE 
SranasteeHOHlGdite 





2353e 2673» 





roy 





TCSR 001264 12 1332 
1417 143ie 1434 16300 
1934e¢ 1993e 203i 2104 
24320 2524 26606 
2951 3104e 3106¢ Si7ie 





7 2685 2606 2625 2954 2975 3296 33030 


1902 1971 2128 2638 27358 3040 3270 34046 8663459 





EY 


MAINDEC - 11 -OVDVC -C MACY11 SOA(1052) 12-SEP-64 15:41 PAGE 110 
CVOVCC.P11 12-SEP-64 08:55 CROSS REFERENCE TABLE -- USER 


SEQ 106 
SYMBOLS 


003476 
003536 
004032 


2087 2111 2121¢ 
2239 2272 22990 


3033¢ 


3370 3377 3716 3724 37335 3739 3745 
3958 3974 3965 4004 4055 4056 





44286 
3730 3960 4426¢ 
2592 2692 3454 354 10 


1431 1434 1448 14535 2532 2542 2562 3106 3137 


1044 1045 1046 








A 


011410 
0113556 
011427 
011424 


OOO NO OE — —ñ— —— — —— *— — ELLIE —— — 


FQ 


MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 111 | 
06:55 CROSS REFERENCE TABLE -- SYMBOLS | 


$731 3884 3936 $965 4069 
43166 





304 
4274 
3620 





21716 





: 
& 










agey tage 


31576 
97 


THe 





eee Eres eee co ceceeeebseeh 


SEEERSTREGCEERGOC gE seeePesucundees? 


* 
—X 
= 





MAINDEC -11-OvODvC -C 
CvOvcc .Pi1 





$F $BLA- 000170 
$F SCAS= 000150 


12-SEP-64 06:55 











1217 
3865 


3776 
4186 
4222 





4155¢ 


3376¢ 
4177 


33 


1171 





a 


ee eakas 






8 
8 


> 
3 


Bae Lira tii Spee 
— —— 





MACY11 SOAC10S2) 12-SEP-64 15:41 
CROSS REFERENCE 


TABLE 
1962 
4089 
4220 
4250 
4157 


4166 
4186 


3 


ia 








Saaesse 





1115 


— —— 


PAGE 112 


2448 


AS mm me 
Be 
B83 


Bab he fer fat fre Das Gb Sut fab fre 
— —— 
AGUA 4 





ue 
ue 


ye 
—J 





4111 


3691 


SEQ 110 


4165 


SEQ 111 




















MAINDEC -11-OvDVC-C MACY11 3OAC1052) 12-SEP-64 15:41 PAGE 115 
CvOvcc .P 11 12-SEP-64 06:55 CROSS REFERENCE TABLE -- USER SYMBOLS 
s€ $0EC= 000220 
sF 800 = 28 POR 2363 
$F SF AL 
8€ 8$GOO= 000400 1105 1106 1107 1109 1115 1114 1116 
1124 A i 1127 i 1 132 
1148 1149 1151 1152 1153 1154 1157 
i 1i 1179 1160 1161 1189 
1221 1226 i231 
1275 1276 
1319 i 1332 1333 1335 
1367 1371 1396 1399 1401 
1431 4 14 1445 2446 1848 
1490 1491 1493 iSo< 1505 1507 
1522 1560 1591 1596 1605 
16235 1663 1699 1700 
i711 1725 1735 17486 1749 i753 
1775 1601 1826 1633 
15a 1667 1675 1676 
1913 1915 1922 1926 1934 1935 1937 
1971 i 1966 1993 1994 1995 
Poe 2016 2025 2031 
2051 2080 2066 2077 
2099 2105 2124 2133 2137 2180 2141 2146 
2158 2161 2368 2171 2178 2179 2182 2187 2188 
2201 2202 2203 2209 2216 2217 2223 2228 2227 2233 2234 
2239 2245 2246 ry -') 2253 2259 ged 2265 2271 2277 
2263 2366 23i2 2313 2321 2322 2327 2326 2330 2331 
2333 2334 2336 2337 2300 224 2345 2347 2348 2350 
2353 rd | 2336 2357 2359 PESO 2369 2374 
2376 2377 238s 2393 2407 2843 2418 24i5 2416 2421 2422 
2426 2427 2428 2629 2433 2434 2503 
2508 23510 2511 2513 2515 2516 23517 2516 2519 2520 222 
2533 242 2343 eas 2337 2576 2577 2579 2582 2583 
28 2607 2608 261i 2613 2614 2615 2616 2636 26/9 
2651 2652 2653 2655 2657 2688 2661 2653 2673 
2676 2687 2886 269 2697 2692 2706 2727 2726 
2733 2735 273 2739 2741 2742 2743 2744 2756 2762 2763 
2769 2771 2772 2761 2786 2789 2790 2792 2793 279 2601 
2611 2612 2617 3 PES 2630 2631 2635 2843 2844 
PBA 284T 2686 2639 2660 2670 2671 2696 
Pee Pa at 2910 — Soe 2933 2234 2936 2937 2940 
PRS 2957 a 2361 286 2970 2976 2985 aa) 2990 2991 
2935 Fae.) 2997 SSR 3007 BOOS 3019 3020 3038 Soa 4 3045 
3074 3075 3077 3078 3060 Sas 3064 306s 3086 BOSS 
3093 3095 SOs 3104 3105 3106 3109 3111 3112 3125 3126 
3126 3137 3138 3139 3187 3158 3160 3161 3162 3164 3165 3167 
3171 3172 3192 3193 51% 3197 3199 3200 3201 3208 S212 
3215 3214 3235 $219 3225 3229 32350 3289 3265 3266 3270 3273 
3274 3279 3280 3262 3265 3268 3289 3291 3307 3311 
3312 3316 3319 3322 3334 3341 406 "Mos 3410 $411 2412 3415 
3421 Sazd, 3425 3429 3435 3439 Baan 3452 3457 360 340? 3506 
3307 3306 3509 3512 3515 3517 3518 3$21 3522 3524 3525 
3529 3530 3553 3534 3356 3563 3566 3567 
3570 3596 3$97 3614 3616 3617 3623 3626 3627 3631 3635 
336 3639 3640 364i 3643 3645 3650 3651 3682 3653 
3654 3655 3656 3657 3667 3669 3670 3671 3675 3678 





19 


MAINDEC -11-OvDVvC-C MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 114 
CvOvcc .P1i 12-SEP-64 06:55 CROSS REFERENCE TABLE -- USER SYMBOLS 


SEQ 112 












i217 
sFSIF = 000110 
1319 1356 
ony 1493 
1695 
1797 1862 
1942 i 
2051 2089 
2162 2241 
2316 2335 
26a 23563 
2699 2736 
2662 2696 
3010 3134 
5236 3276 
3326 3346 
3620 36358 
3684 
sF¢INC* 000210 16 3555 
$F $L00- 000200 16 3418 
$F seet= 000160 Le 
$F $M™D = 000405 10 1106 
1i22 1126 
1151 1155 
1176 1186 
1226 1243 
1275 1263 
1332 1347 
1396 1413 
1443 1453 
1504 1310 A 
1596 
1699 1710 i711 1712 
1737 1794 
1842 1867 1675 
1914 1922 1934 1935 
a L994 1995 1996 
2011 2031 2032 2035 
2063 2086 2087 
2132 2141 146 2147 
2176 2188 2193 2194 
2217 e234 2238 
2264 2277 2262 2263 
2327 2331 2332 2333 
2351 2337 2358 2339 
2376 2395 2406 2407 
2426 2432 2433 2434 
2506 2514 2515 2316 
2542 2577 2579 
2611 2616 2636 
2663 
2727 2726 2732 733 
2743 27635 2768 2769 2771 2772 
2617 2836 2645 2645 2646 





2635 
2671 2676 2696 2696 2905 





MAINDEC -11-OvDvC-C 


CvOvCcc .P11 


SF SOR = 





000404 
000150 


MACY11 SOAC1052) 12-SEP-34 15: 
12-SEP-64 06:55 CROSS REFERENCE 


— * 2 


JY 


41 PAGE 115 
TABLE 





2961 





-- USER SYMBOLS 


3019 





3109 








SEREGRE Seeeece E FRSRBSSRECZ ZH ec sect 








KG 












a 
MAINDEC - 11 -DVDVC-C MACY11 SOA(1052) 12-SEP-84 15:41 PAGE 116 _ 
CVOVCC.P11 12-SEP-84 06:55 CROSS REFERENCE TABLE -- USER SYMBOLS 
2377 2389 
2427 ease 
2516 2520 
2583 Boe 
2651 2656 
2713 272€ 
2765 2786 
2647 ZB6o 
— 2934 
Page 3010 
WORE $698, 
3158 3167 
3216 3225 
3260 3289 
IEG 3339 
3431 344i 
3597 3620 
3647 3655 
wee 2692 
001120 9274 
001124 520 
011400 37810 
012232 39580 4431 
sD = 000000 
$HIBTS 001000 





$ICNT 001104 
SIFLEV= 177777 





sILLuP 011610 
$INTAG 001155 
sISKO = 000001 






Seogaage STEVE CORHRIGE 


rae 
So 





i 








L9 








MAINDEC -11-DVOVC-C MACY11 SOA(1052) 12-SEP-64 15:41 PAGE 117 a8 115 

CVOVCC.P11. 12-SEP-84 06:55 CROSS REFERENCE TABLE -- USER SYMBOLS 

$ISKi = 000001 4596@ 1617 1775@ 1780 1767@ 1795 20540 2068 23930 2408 2557¢ 2570 27 
2719 «5208@ «3216-'s«3316@ «$3260 6230 «36370 «S67S@ «| 3686 — 

sISK2 = 000001 16050 33190 3326 36780 «03684 

SITEMB 001114 $240 «372804157 41650 4186 

“LF OO11T2 9516 4060 ua 


4119¢ 
10 
i 
itSs 
1595 





SLFLG 015201 
SLOCTA 177777 


> 
a 





waseessee 


LPERR 001110 s228 ligie — ** 13986 
i 1412¢ 
1244 30 4680 16600 1842¢ 





As· 177777 
$LSTIN= oooooo 


MAINDEC -11-OvDvC-C 
12-SEP-64 06:55 


CvOvCCc .P11 


MACY11 SOAC1052) 12-SEP-64 15:41 
CROSS REFERENCE T 


SReschassesassteseey 


Pee — — ⸗ ⸗⸗ 


— DD 


1729 
1761 
17865 


— —— 


— ——— 


1730 
1762 


1786 
1807 
1844 





1067 
1913 
1933 
1974 
1997 
2019 


Bae 


os 
214) 


















Seeebtesdessseesesbececouessaeecneue 
Teeeecshsesdseutnedcdsboraeesansranuees 


Boe 


M9 


PAGE 116 
ABLE -- USER SYMBOLS 


1732 
1768 
1766 
1626 





18676 
1915 
1935 
1977 





2076 
2126 
2147 


8 
3 








2173 


2202 
2233 
2259 
2307 
2329 
23435 
2361 
2377 
2399 
2924 
2434 
2317 
2333 
2359 
2594 
2637 
2658 
Fl 
2701 
27% 
2763 
2791 
2008 
2626 
2850 
2673 
2320 
2941 
290 
2979 
3007 
3031 
3086 
Siii 
3138 





3206 
3230 
3279 
3296 





Seeekt 
Ske 


— 
— ———— 


— 


EEE LLL REPL iia ee edt tg 





3112 


3239 
3172 
3209 
3259 
3280 
3297 








8 


fe 
<3} 
8 


Be EEE BLE 






— UBER A Sesee Re teReecReEoCEas access 





N9 











MAINDEC -11-OvDvC -C MACY11 SOAC1052) 12-SEP-84 15:41 PAGE 119 
Pil 12-SEP -64 06:55 CROSS REFERENCE TARLE -- SYMBOLS 
3309 3311 3312 3315 3317 3316 
3334 3335 3336 3341 3408 
Mee Mes 444 3425 3429 
Seas Maa S648 3a4? 3453 
—— 3467 3468 3469 3474 
3506 3507 3308 3309 3312 
3320 3321 3522 3323 3326 
3337 3533 3334 3355 3338 
3365 3366 3367 3368 337i 
3597 314 315 3616 3621 
3626 %29 3631 3632 3639 
SOA 47 3648 3650 2633 
62 3663 ts 3665 3668 
3676 3679 3680 Ad 3692 
3735 37% 
#LSTST* 177777 10 
$LSTTA= oooooo 1@ 1095 1094 2202 11035 1160 
1237 12386 1253 1234 1270 1269 
1326 1341 1342 1338 1359 1376 
1459 1460 1465 Lage 1499 1316 
1597 1603 1608 1610 1611 1616 
1674 1675 1697 1696 1702 1707 
1781 1782 1783 1795 1796 1799 
1635 18% 18670 1671 1888 1904 
1960 1975 1976 1360 1961 
2023 2024 2038 2039 2046 2068 
2090 «#42108 2109 2130s 2131 
2241 2242 2274 2275 8=— 2267 
2340 2341 20 «862361 
2401 2808 2409 8=—&. 2410 
2570 «= 2571 272 273 
2720 2721 2722 2760 
2632 2633 2062 2065 
2907 2938 2939 842940 
S082 3043 3047 3048 
3217 3221 3222 3234 
3314 3315 3324 3325 
3384 3418 3419 3427 
34SS SAB 3485 3486 
3335 3336 3341 3542 
3373 3375 3376 3380 
3638 3648 3649 3636 
3711 3716 3717 3733 
957@ 1066 1061 1146 1212 1300 1389 1471 1552 1565 1654 
3257 3865 


= 1897 1969 2123 2301 2487 2634 2754 2694 3035 





41240 


; 


OLY 
MAINDEC - 11 -OVDVC -C MACY11 SOAC1052) 12-SEP-84 15:41 PAGE 120 SEG 116 
41 * aj ; 
CvOVEE.P1l 12-SEP-64 08:55 CROSS REFERENCE TASLE -- USER SYMBOLS 





410ie 4115 41l7e 







11010 


4 





te 
ar 
& 





oe 


$3 
RBREEGE KURSEURBEUN ESET 
= 
Paueeees gbhcespececes 


3% 
>] 
ae 





——— 


——— 





aekeherilteeiictt 
p 


v 
— 








—X& 





tie ieen RES: 
—1 


* 
ad 
& 
(— 





EpRSYRE SOP YGHENEGE 
ety E ESGRESE ERRRCOSESESS UES Hard deaoved stoves 


* 
— 
F 
* 
3 





1547@ 1580@ 16499 16863¢@ 1685 
2477@ 2479 26260 2626 27484 


seasTST= OO000 






g3 
: 
zf 
: 


AE REE REET ET 
sSuTEREEEESBUSEUN 
Ld ad 
ras 
~ 
ẽ 


33330 


ry 


a ad 
SEQ 119 





MAINMDEC - 11 -OVDVC -C MACY11 SOAC10S2) 12-SEP-64 15:41 PAGE 121 
| CvOvcc .P11 12-SEP-64 06:55 CROSS REFERENCE TABLE -- SYMBOLS | 
| 000 43549  4376¢ 43912 | 
tOR0008 43440 4348¢ 4353 4356¢ 4367e 43930 | 
sOWFR 4203 4219 4227 4237 S268 
SPASS 9610 1066¢ 3676 3769e 3770¢ 3778 3791 4233 4250 
sPASTA Ohi 
FEOMER 38% 38370 
oF 3asooe 
apts 1042 37990 3827 
oA Ye 394 
2a 3809 38150 
IQUE S 9490 3936 4004 2053 4069 4186 
¢RDOEC pot He * 
A⸗ e0ase 406 4435 
“ aah, 
* 000010 £0380 
47908 
SAQA aa BS 
tSAVLE © 1@ 611010 
239 
2636, 
THOR« 
19346 
1027@ 
1 





001216 
000000 
177777 





Sebdedevsdiceseneseeaticny Ses8ge 





Vil 
| SEQ 120 
MAINDEC -11-OvDvC-C MACY11 SOAC 1052) 12-SEP-64 15:41 PAGE 122 

CvOvcc .P11 12-SEP-84 06:55 CROSS REFERENCE TABLE -- USER SYMBOLS 


34310 
33590 










34260 
$337¢@ 
M290 


sTAG@H: 050002 


sTEr? = 0003500 





GEESERCEEERDEs chet eee ge 


: 







S 
$ 








77 


a 
& 


MAINDEC -11-DvDvC-C 
12-SEP-64 06:55 


CvOvcc .P 11 


001200 
001160 


001146 
001144 
000026 





CLV 


MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 125 
CROSS REFERENCE 


32300 
32060 
333590 
34308 
4834 
33290 
35808 
36376 
36520 
36708 

9600 


— 298c0SES 


rn 
Bs 





24130 
«2330 


23150 
25720 
2615¢ 





26600 
27140 
27440 


26120 
26556 
Poe 
286 
301360 
Wate 
31056 
Si ao 
31976 
RO aRe 
32054 
5 
Sate 
See 
33300 
RSIS 
56398 
35350 
36716 
1146 
2ie 
10456 
169% 
21406 
26394 
42288 
39 
3907 
627 
13680 
16536 
1697 
2123 
2477 
28936 
3257 
3925¢ 
38657 
3923 
Kee 
4428 
44266 
246 









1101 


18607 





TABLE 





24166 
23166 







itt 





T27@ 





Saute st 


i‘ 
* 





rod 


33355 
ry | 3 








—1 


1863¢ 


-- USER SYMBOLS 


24190 







ee 
SELES ta 


rw 
® 





Gdecect neste’ 


SEG 121 


MAINDEC -11-OvDvC-C 


CvOvcc .P11 


sTSK1 »* 050010 


sTSK2 = 050011 


$ ¢ARGC « 
ssBYTE= 000405 


—— 
ses 
He 


sCASE 
60ST 
s€LOC 





1959 
21014 
2274 





abe... gecggeseenesscunssese 
seger VERE VSAIHESS 


21376 
23956 


re pe et! 
ff a 
SOS & & ® 








MACY11 30AC 1052) 
06:55 


12760 
2106 





3645 
3936 
3936 
33840 
10946 


* 
= 
cd 





2 
& 


se88 


i 
13710 





















12-SEP-84 15:41 PAGE 124 xo 122 
CROSS REFERENCE TABLE -- USER SYMBOLS 

1980 19660 
2131@ 2135 = 
2287 360 


2311¢ 
2572 


2673¢ 
3116 
33008 


1900 1973 2126 2137 2306 2308 2421 
3508 





121350 1231@ 1237@ 12478 12530 12700 

i325@ 1335@ 1341@ 1352@ 1 1371@ 1377@ 1401@ 14076 1417¢ 
1453@ 1459@ 14770 14830 1493@ 1499 15108 1516@ 1529¢ 15550 
1595 1596@ 1602 1605@ 1609 1615@ 1617@ 16199 16254 16420 


MAINDEC -11-OVDVC-C MACY11 SOAC1052) 12-SEP-84 15:41 PAGE 125 SEQ 125 
CVOVCC.P11 12-SEP-84 06:55 CROSS REFERENCE TABLE -- USER SYMBOLS 











$SERFL= 000000 
$8FLAG= 000001 







ae ET ite 


141790 
1893¢ 


16930 
17676 


EeEreeedducees 


$$FROM= 000000 


$#GET4= 000000 
$$.0C = 011064 


Be 





MAINDEC - 11 -OVOVC-C MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 126 | 
CvOvcc .P11 12-SEP-64 06:55 CROSS REFERENCE TABLE 

















34360 24 34660 63469 e216 3625 3661¢@ 3662 36640 3665 
3492@ 686 3536 3602@ 863711 3717¢@ 3755 
34700 6634740 3342@ 863561 3602@ 3710 717¢@ 
3470 3485 34926 35420 36026 3695 3709 
3475 3485 34926 3361 3602@ 3710 37170 3734 
163520 
2344 
2626 
30516 34520 
$86TAG= 050000 
sOFTLi. 014555 


S40TAT= eeeeese VU 
; = 014416 


13 
1311 


7 
3 





— ate 
— 





— DDD DD—— 


— —— 





3811 


.SASTA= eeeese VY 
.8X * 001000 


— shGREStaaye 
a8 SPRRSSSSSbEIE 





140 


| | 


























G@ 
MAINDEC - 1.1 -DVDVC-C MACY11 SOAC1052) 12-SEP-84 15:41 PAGE 128 — 
CVDVCC.P11. 12-SEP-84 06:55 CROSS REFERENCE TABLE -- MACRO NAMES 
BGHHRD 
aces 
BGNINI 
BGHHOD 
earl 
BONGRV 3166 «3586 
BONSUB 122? er 1315 1329 1345 1862 185597 1411 1427 1444 14773 
1520 1557 (1621 3 3 3 
BGNSW 
BRE SET 1450 1526 1868 1659 1671 10760 2602 3100 33830 
CALL 1925 2161 2171 2253 2521 2546 2590 2677 2690 2780 2800 
3050 3290 3452 3630 
cox ooP 1676 
COMMEN 
DEALLO 37530 
OE VREG 
DEVTYP 
OISPAT 
LSE 1608 1760 1796 2011 2369 2368 2398 2562 2712 3312 3425 3627 3646 
ENDCOM 
ENDDO 2380 
ENDHRD 
ENDHM 
ENDIF 1236 1311 132@ 1340 1357 1376 1406 1422 1439 1458 
1515 1614 1616 1618 1641 1673 # #41701 + «#41739 #1779 «©1781 1796 
1941 1958 1979 1987 2016 2037 2067 2069 2088 2107 
2195 2275 2286S (s«28140 «2323.0 s«2377S 8 280924390 
3764 «2812 «s«28310s«o28610«s«287S)«— 28820 si2905) 286202985 
3172 3233 $267 6 
3685 3687 
ENDINC 3012 3573 
NDIWI 
ENDLOO 
— 
ENDS 
ENDRTN 3579 3708 3752 
ENDSFT 
ENDSRV 3240 3597 
ENDSUB 1238 en 12220 1326 1342 18559 13760 1400 1424 1441 1460 1a64 
1537 1574 1645 1677 1872 1689 1943 2197 2220 2242 2288 #2573 2604 
ENDSM 
ENDTST 1379 14461 1538 1575 1646 s«1678 1014 16090 «Ss «196024 22609 2are 
3243 3350 
s 
1250 1267 1286 1322 1338 1355 1374 1404 1420 1437 1456 1480 1496 
1565 1631 1668 1787 1777 «1790 1867 1685 1939 1956 2032 2061 2083 
3310 «22342265 «25602567 
3131 3301 3336 43343 
1235 1251 1268 1287 1323 1339 1356 1375 1405 1421 1438 1457 8 1481 
1S33 1566 1632 1669 1738 1778 #1791 «#41868 «41686 1940 1957 2033 2062 


410 





MAINDEC -11-DvOVC -C MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 129 
CvOvcc .P11 12-SEP-64 06:55 CROSS REFERENCE TABLE -- MACRO NAMES 
2064 2106 2169 2211 2235 2266 2264 2438 2561 2568 2599 2710 2717 
2681 2958 2980 3005 3132 3302 3337 3344 
ESCAPE — 7490 
EXIF 
1611 1696 1609 1631 1905 1976 1984 2034 2064 2065 
2237 2270 2311 2320 2441 2494 2761 2902 2959 
1316 1334 1351 1370 1400 1416 
1624 1662 1752 1783 1766 1825 
2096 2125 2136 2181 2202 2226 
2356 2594 2635 2696 2705 27355 
3207 3224 3258 3315 3318 3333 
2466 
2977 3298 
1125 1126 1131 1134 1147 1151 
1188 1169 1191 1192 i221 1226 
1331 1346 1348 1363 1365 1396 
1484 469 1504 1506 1321 1S23 1558 1612 
1709 1711 1719 1747 17356 1792 1799 1832 2838 
1915 1920 1933 1949 1977 1965 1992 2 1996 
2065 2061 2086 2095 2103 2132 2140 2145 2151 2157 
2208 2216 2223 2232 2238 2245 2249 2263 2271 2261 
2332 2343 2346 2349 2352 2335 2337 2367 2373 2375 
2427 2431 2495 202 2506 2509 2313 2314 23515 2516 
2578 2381 2606 2611 2612 2614 2615 2648 2649 
2662 2672 2686 2695 2703 2726 2731 2734 2739 2740 
2764 2610 2616 2629 2634 2642 2643 2634 2659 
2966 2963 2969 2993 2996 3007 3016 3073 3076 
3094 3097 3193 3107 3110 3124 3136 3138 3156 3159 
3211 3215 3218 3228 3265 3273 3278 3261 3264 3287 
3423 3426 3438 3436 34700@ 247400 = 3505 3507 3521 3523 
3615 3625 3634 3638 3640 3644 SEAS 3651 3653 
3690 3492 495 
1204 1466@ 1468 1663@ 1685 1616@ 1616 1962@ 1964 2293¢ 
2746@ 2750 3029¢ 3031 32480 
1295 1384 1466 1547 1580 1649 1683 1816 1692 
2748 2689 3029 3248 3353 
2616 2744 3376 38620 3621 4121 4122 4303 
2609 2737 3549 3601 3607 4062 5084 4105 4262 


& 
rey 
— 





MAINDEC -11-OvOVC-C 











CvOvcc .P11 12-SEP-64 06:55 
REPORT 7490 
RE TURN M73 3330 
pon db 38 i210 1387 1469 
732 3033 3255 
2584 2666 
4429 443) 
1615 1700 
2272 
3274 
785 787 
1136 1145 
1345 1546 
1620 1691 
2484 262%) 
3164 31866 
3602 3611 
4319 4396 





fo 
2 
© 






> 
z 


esbedtsdittts 


gece 
— 
ese 


4) 
TABL 


MACY11 SOAC105S2) 12-SEP-64 15: 
CROSS REFERENCE 


PAGE 130 
E -- MACRO NAMES 


10 





1688 





1621 


1966 
2763 


3733 


12206 
1337¢@ 





1695 


1967 





SEQ 127 
2121 2299 
2087 2111 
2961 2964 











23990 
26386 
26094 
29390 
31260 
32990 
33846 
3514¢@ 
%02¢ 
36760 





MAINDEC -11-OVvDVC-C 
CvOvcc .P11 12-SEP-64 
3 AND 1098@ 

14170 

17330 








14 
178670 
20770 


ey 










23650 
26710 
33076 
117008 





age FREREREER 


—— 
debyedeveeuactevgace tttt 


Se 
yee 


estudvedteteteese 





11690 


ne 
£ 
pe 
¢ 


~ 
: 
7 
* 
oR 


MACY11 30AC 1052) 
06:55 





: 






3 
& 


26720 
33130 
3369 
16260 
30566 
13266 
30319 
1231¢@ 
13106 
193536 
2227@ 
26360 
32590 
11166 
12210 
18684 
15006 
20824 
22450 
23680 
235790 
27390 
226034 
32146 
33350 
36910 
11760 
16306 
22640 
26634 
29200 
3192@ 6631950 
3960 
1217 


——— 


12120 














1477@ 


— 


12-SEP-64 15:41 
CROSS REFERENCE T 


12476 








gebde COUCSERCEENS sudogiiee! 


F 
3 








12316 
14936 





L10 


PAGE 131 





Ba Ty SERRE 


Seu 
387 


321670 





MLO 


MAINDEC - 11 -OVOVC -C MACY11 SOAC1052> 12-SEP-64 15:41 PAGE 132 
Cvover Pil 12-SEP-64 06:55 CROSS REFERENCE TABLE -- MACRO NAMES 










2126 21270 
2395 24340 





13190 






Eceudegcrcecustagutenebeaavbogee 
EEEEES: cucGUEESED OREO UF EGed¥ESE 


ebsredecercetesde 


Sdcdeacedeencteectcragtecd eee eee 


: 
gebuueceseeovecderductigss 


8% 

E 
RR 

cee 


abedaauedanecevcceeusat 





a 
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CvOvCcc .P11 12-SEP-64 06:55 CROSS REFERENCE TABLE -- MACRO NAMES 


























26790 26960 484626960 0 20990 DS 29336 29416 
20490 460629576) =—629608 0 =— 2638 = 29676 29906 3001¢ 
3o10e 30130 230140 30190 30476 30790 
3sosse }6 30890) =— S020) 0s 30956) =: 30988 31200 31290 
3139@ 3157@ 31600 3173¢ 31990 
2040 3205@ 320860 32090 32256 32290 32594 
32620 3265¢@ 32686 32700 32650 33086 
330s8e 3311¢ 3313¢ 33140 33240 33286 33350 
33410 33420 33460 34060 Be SES Saray 34350 
B 0 34440 24440 24460 TASS 34726 4a se 
ssose 35096 35140 35176 35264 35290 35340 
3ssse 35560 35590 35600 38700 33720 357Se 
35960 3146 36160 36200 36294 3635¢ 3639€ 
3430 60636450) 26470 24480 Sepa 36630 36648 EGO 
36700 %75@ %760@ 36760 36910 3695@ 37090 3753¢ 
PBR 
1101@ 11700 11840 12160 13040 13206 
14020 14180 14350 14540 4982 e 15990 
16260 166466 16940 16960 4 Rae 18054 
16620 18063¢@ 19016 190350 20204 
2052@ 2055@ 20720 20760 22600 
23190 2337¢@ 23420 23620 23990 
25340 2558¢ 25636 25960 27908 
2651¢@ 2664¢ 286720 26790 
3121@ 31290 32056 
334200 24220 56 S68 
55686 35716 


: 





dabedieeees 


z 
wt 





Pe Le iia rei: 





1605@ 1625¢@  16635¢ 
2051@ 2054@ 20770 





EUEELEacebauguetvuengelcg 


24340 24920 
31286@ 631676 
3620 36230 
1305¢@ 1319 


244 


MAINDEC -11 -OvDVC-C MACTI1 SOAC10S2) 12-SEP-64 15:41 PAGE 1% 
REFERENCE TABLE -- 




















CvOVCC.P11 12-SEP-64 06:55 CROSS MACRO NAMES 
| 143460 14776 15100 15290 
powe 21376 z20se | 2270 
860 80 23600 
21⸗84 $206e@ 32000 
4670 36230 36600 
¢ IF CON 18626 20096 484626266 
sIFOPR 11690 1163e@ 1164 
1306 1320 133S¢ 
14330 14677@ 1476 
1* 1606 16250 
17870 16280 1629 
1 2008 20216 
2128¢@ 2129 
2309 §€=6.23160 
26920 862495 
27359 2609" 
30s0e 8: 3041 
3262 32708 
Sage 24359 
36760 63679 
sLET 11186 112106 
11646 11760 
13038 8615160 
1474@ 14660 
1712@ 17200 
19210 19340 
2065e@ 20620 20860 
— ysase sare 
23440 «86623470 
2azee 228 
25790 60625620 —— 
2663¢ 2673¢ 26878 
2763@ 4 2611¢ 2617¢ 
20676@ 2963¢ 29900 
3095e@ 4630960 31040 
3212@ 32146 32190 
34240 34290 343590 
56390 36416 36450 
6LPONT 35140 33330 3556350 
sPCHIG 
—XC 
SOP ABS 
SOP ADD 1133@ 11780 11610 igaae 13498 = 13668 
1S24@ 16300 16396 19130 20316 
2233e 22640 22620 23398 ot 
26600 26630 26876 27270 27920 2611¢ 
29090 29208 29390 2997 3i11@ 3125¢ 31570 
31920 31960 32000 32290 33220 34576 35090 
35660 35960 %6520 36364 
1133@ 11780 11810 12446 13490 13666 14140 
18240 16300 16390 1913¢ 2031@ 20600 
22330 422646 22620 2 
26600 26630 26870 27040 27276 2792@ 4626110 
29090 29200 29390 29876 3i11@ 31250 31390 





— & 4 


PAGE 155 
E -- NAVIES 


SEG 132 


| MAINDEC - 11 -OVOVC -C 
| CvOvec P11 12-SEP-84 06:55 


| 3157@ 3161¢ 3171¢@ 31920 
SS22e SS24e 35560 35660 


/sopco1 33290 
s0PCD2 «(«l23@~= ss: 
| 12780 


MACY11 SOAC105S2) 12-SEP-64 15:41 
CROSS REFERENCE TAR. 





1133 





11260 
13490 






J 


aee 


S 
fh 
G 
Se 


11336 
122600 
14026 
14766 
13610 
L6GDe 
1726 
1772 
162664 
16730 
1930 
1965¢ 
2064 
2ERS 
21386 
22016 
226 
# 
2395¢ 
24330 
2524 
23636 
26130 
26760 
27044 
273590 
2605 
26260 
26790 
29410 
2973 
30386 
30950 
31600 
$2126 
3262¢ 





32090 
32790 
33132 
sass 


52 
ro 





erdegbace  PedCegeveeOENecergeobsue 


tne 
wa 
oe 
sd 
& 


mm ee a — — —— — — — — — ge — — — ———— —— 


| MAINDEC -11-OvOvC-C 


CvOvcc .P11 12-SEP-64 06: 





——— 


= 4 ho} 
Srgee detceceee 


peucedcergseected cee: 
Cedlepbadbveabere 


My 
= 
* 





——— 


MACYi1 SOAC 1052) 
SS 








atadebuatedeventevetes teltlectedetevened © 
eedetugdederdatevenaeteccece cenceeteuetdes 


prereee 










Dok ope 


12-SEP-64 15:41 
REFERENCE TABL 


BePeeeeree 


ẽ 
= 






base 


— eee doug 


3 & od 


———— 


17200 
9346 
20864 


i 
22234 


: 





PAGE 136 
E -- MACRO NAMES 








— a 


MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 157 
CROSS REFERENCE T 


| MAINDEC -11- 
ABLE -- MACRO NAMES 


OvOvc -C 
CvOvCCc .P11 12-SEP-64 06: 
2503¢ 
26110 
26960 
26176 
29830 


Gee 
$ 





———— 


fe 
eee 


3 : 
& & 


Ss tt 


27710 


$ 





1366@ 14140 14516 
20600 20626 040 





20300 26440 
31370 31590 
35090 


——— 





1366@ 14140 14310 


| MAINDEC -11-OvODVC-C 


CvOvcc .Pil 
14486 





12-SEP-64 06:55 
1507¢@ 
22094 





MACY11 SOAC1052) 12-SEP-64 15:41 PAGE 156 
CROSS REFERENCE TABLE 


-- MACRO NAMES 


1913¢ 


19340 
23740 
2732¢ 
30190 
32620 


3930 
12610 
19340 
23740 





SEQ 155 





a oe 








MAINDEC - 11 -OVDVC-C MACYL1 SOAC1052) 12-SEP-84 15:41 PAGE 139 SEQ 156 
CvOVCC.P11 12-SEP-64 06:55 CROSS REFERENCE TABLE -- MACRO NAMES 
31340 31730 32160 $2340 32630 
33a3e 34 34270 34600 
33410 35576 
36580 36840 36860 
$sGETS 11730 
i 14400 


14590 
16620 
23700 
2630 


eOb2¢ 
31340 


$éGETT 





$ 8PUSH 





SEQ 157 











MAINDEC -11-OvOVC-C MACYL1 SOAC 1052) 12-SEP-64 15:41 PAGE 
CVOVCC .P11 12-SEP-84 06:55 CROSS REFERENCE TABLE -- 
1266¢ i303se. 1 13490 1320 
1417¢ 14360 14530 14770 1 
13420 15970 1600e@ 16040 
16960 17330 17860 
—8 16620 
362 20060 ota Se 
20790 21640 
2277e 23390 
235660 23720 24346 
23s7e 25590 27066 
27910 27920 26716 
29360 29360 30036 
a 3167¢@ 32590 
@ 33000 33416 
bese ae sus 
1222 1310 
20% 
2194 2217 5860 
3141 3266 





SEG 158 


MAINDEC - 11 -OVDVC -C MACY11 SOA(1052) 12-SEP-84 15:41 PAGE 141 
5S CROSS REFERENCE TABLE -- MACRO NAMES 


CvOvcc .P1i1 12-SEP-64 O06: 





. $TYPO 1@ a4317 
. $40CA 10 
14170 1@ 


. ABS. 014416 000 


ERRORS DETECTED: 0 





CVvDVCC , CVDVCC *CVOVCC .MLB/PL . SYSMAC.SML .CVDVCC .P11 
RUN-TIME: 77 776 


RUN-TIME RATIO: 246/162°1.5 
CORE USED: 43K (8S PAGES) 






